Post your Vb 6.0 Questions Here

Dynast your question maybe a very long program but I will try give you some crew that you would need to write the program. Dont expect anybody to spoon feed you, all u need to do google them out with our support u will make it.

Things requested.

To create a new account by Administrator which he wil be able to edit and even delete

To login with that ID to call mainform

New users should be allowed to create their own account and use it to loggin

Say am interested in UserID and password and class.


Create Three string fields namely UserID,Password and class.

To create new User

If using Access, "Select UserID='" & txtID.text & "'"
Pass that as you SQL statement, them to check whether if it exist

If rs.recordcount>0 then Msgbox("The user name is existing plz choose another name": exit sub

rs.addnew
rs!userID=txt.id
rs!password=password.text
rs!class="User"
rs.update
rs.close

To create System administrator

rs.addnew
rs!userID=txt.id
rs!password=password.text
rs!class="Admin"
rs.update
rs.close


To authenticate User and loggin

Pass this as your SQL statement,

Select * from tablename where UserID='" & txtid.text & "' and Password='" & password.text & "'"

if rs.recordcount>0 then
If trim(rs!class) ="Admin" then
mainform.show
' Enable all the tools that will enable one manage the software.
else
mainform.show
'Disable all the tools that will enable one manage the software.
end if

else
Msgbox "User Id and password not exisitng",vbinformation,"Access denied"
end if


The above procedure will take place in command button's click event.

Plz if the above information is not clear you can contact me with you have in mind I will write the whole program give you then you can use it for what u want to.

But you have to pay for my biz time.

Take care.

what i really want to know is if there is any VB 6.0 Custom control for communicating via the parallel port

Still need help to make the following codes written by LuckyCO to  run for me any one can assist pls :
I need comments as well

This is a program to animate a splash screen

Option Explicit
Public ControlTblname As String
Private Declare Function CreateEllipticRgn Lib "gdi32" _
   (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
    ByVal Y2 As Long) As Long
   
    Private Declare Function SetWindowRgn Lib "User32" _
  (ByVal hwnd As Long, ByVal hRgn As Long, _
   ByVal bRedraw As Boolean) As Long
   

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Public Sub Bubble(frm As Form)

Dim iret
   Dim a As Integer
   Dim b As Integer
   Dim C As Integer
   Dim D As Integer
   Dim e As Integer
   Dim f As Integer
   Dim w As Integer
   Dim X As Integer
   Dim Y As Integer
   Dim z As Integer
   Dim current As Double
Dim pp As Integer
   'frm.Move(0, 0) = 0
   w = frm.Height: X = frm.Width: Y = frm.Top: z = frm.Left
   a = 0: b = 0: C = w: D = X: e = Y: f = z: pp = 0
   Do While a < frm.Height / 17 Or b < frm.Width / 17
      a = a + 25
      b = b + 25
      e = e + 70
      f = f + 70
      If a > frm.Height / 15 Then a = a - 24
      If b > frm.Width / 15 Then b = b - 24
      Call frm.Move(f, e, D, C)
       
      current = Timer
            Do While Timer - current < 0.01
         DoEvents
         
      Loop
     
     iret = SetWindowRgn(frm.hwnd, CreateEllipticRgn(0, 0, b, a), True)
  If pp = 0 Then frm.Show: pp = 1
    Loop
   current = Timer
   Do While Timer - current < 1
      DoEvents
   Loop

   'This will make the bubble "pop" and minimize the form.
   'Comment out if you want it to remain displayed

'iret = SetWindowRgn(frm.Hwnd, CreateEllipticRgn(0, 0, 0, 0), _
   True)
iret = SetWindowRgn(frm.hwnd, CreateRectRgn(0, 0, 1000, 1000), True)


End Sub

Thank God

hmm i haven't programmed in vb or any language for a while now and i can't even remember how to pass variables collected from a form to another.

thank you so much "LuckyCo" for responding to my questions. I like you and I will let you know as soon as I am through with the program.

Once again, thanks.

I hope we have no question on vb6.0?

Yes VB 6.0 may  not have some hardware powers except you have somebody who can desing in in C++, C# or vb.net then you comsume it in VB 6.0.

VB 6.0 is made for rapid development and simplicity not for hardcode programming. If u look for it u dont see that I advise you go for higher language like .net.

I ve not written any such a program, what I do is to comsume the ones already written in C++ or C language.

So prepare to leave Vb 6.0 to vb.net or supposedly C# if it cant solve your problems.

Take care.

pLS,
How can i get ebooks on v b.net?

hello
how do i link ms excel with vb6.0, as in if i dont need to create a new excel doc
thanks

Need help on codes to effect the followings:
--------VB6.0 Codes that will be able to filter records from a database  based on more than 5 criteria
--------Codes that will be able to  randomise the filtered record that meet the reqiured criteria and bring out a single record as if a toss for possible outcome.
---------Several reshuffling can be made and a single record which will never be repeated at any other tosses will emerge


hoping to getting quick assistance

I will copy both creating new one and geting loading the existing excel file into MShflexgrid. I don't have the code now. But if you are in a hurry, type in your MSDN CreateObject and on it press F1, you will see how it goes.

Thanks




Smart you have a very good confession. I really appreciate your advice  because you are telling your sincere truth. But at the same you consider many things. Microsoft considered millions of Vb6.0 users and created vb.net not totally diffrent.
On your posting what I want you to do is, List out all these VB6.0 arkward things and profer solutions to them in VB.net, C#,C++ or Java.

Am using VB6.0,VB.Net,C# and Java(Intermeidate) and I still ve reason for using Vb6.0 why because of its simple and available file structures and again its portability across any  computer (Speed and Storage capacity)  during development. If am developing  small packages I use vb6.0 but on a complex application and web I use .net.

Consider yourself spending 3.5GB or more of .Net development environment to 450MB or less of Vb6.0. 
So like I said  list those errors and offer solutions to them, the likes of me who likes vb6.0 to a fault will continue to use it even if MS put a saction to it.


Please tell us briefly what you are  building that required this program, them I wil make suggestions and finally offer solutions. It may that you don't need database to that.

To put on the  Net your vb6.0 codes you need to convert it manually and change your concept about vb6.0 programming thing. In this case you use Asp.Net on vb.net coding style. Even the conveter provided by MS to convert vb6.0 to vb.net dosnt work well, so you need to manually convert it. Stop waiting for wizard that will do it for you, start now the ealier the beter. Make search on asp.net books ans start reading them. Use www.4shared.com to look 4 books

thanks

CAN ANY ONE HELP ME WITH THE USES OF DATA WINDOW IN VB6?
AND ALSO HOW TO CONNECT TO DATA  BASE (ACCESS) WITH OUT USING ADO FORMAT

luckyCO
Sorry, I have been away 4 long,

That argument would have been too good some years back. Consider these:
i. i just bought 120G HD (laptop) for N14,000 last week, so, how much is 3.5GB
ii. .NET framework (all that is needed to run .NET app) does not require up 3.5GB (just 200MB is enough).
iii. Its good for some of us who invested on VB long time ago to continue. But if you are just starting up, how relevant will it be in the next 3 years (when you are supposed to start enjoying the dividend of knowledge)
iv. How many employers now look for VB6.0 programmer/ developer.
v. ,

Yours trully,
Smart K.

hi my name is frankcould you pls do me a favor i write program  in v.b6.0 but i am having problems  in  the data base section.i know how to connecta data base to  vb6.0 using adodb.but i would be really greatfull if you can send me or help me out with the  codes using  adodb and ms acess  to      delete records,add records and laso edit the records  i would be really great full thnaks.just incase  my number is +2348076226978 and also my email is oforeh2000@yahoo.com

also pls can i get the e.book for the tutorials of vb.net  thans a lot i appreaciate

Using AdoDB after setting connection string do the following;

For Inserting Record;

rs.Addnew
rs.Fields!Name="Frank"
rs.Fields!age=23
rs.update
rs.close

To Update
rs.update "Name","frankline"
rs.update "age",23
rs.close

To Delete
rs.delete

Believing that all connections and query are made and u are using rs as your recordset.

Take care

Use www.4shared.com or www.freebooks.com and others to look for vb.net .