visual basic

[chans]

while without wend error

[jrtox]

while without wend error

Used this Format

 
Dim i as integer
i = 0
 
While i < 5 
 
'Display here
 
i = i + 1
Wend
 
 

Regards
Phils Ervin

[debasisdas]

while without wend error

Kindly post the details of the error that you are facing.

[chans]

I am a beginner for VB. i am writing a code which has to display details of employee from database. hav a look at my code...

Private Sub Combo1_click()
Combo1.AddItem ("1233")
Combo1.AddItem ("1234")
Combo1.AddItem ("3343")
End Sub




Private Sub Form_Load()

Dim adoRecordset As ADODB.Recordset
Dim db As New ADODB.Connection
Dim mDatabaseName As String
Dim mDBserverName As String
mDatabaseName = "chandru"
mDBserverName = "(local)"
db.Connectionstring = "Driver={SQL Server};Provider=MSDASQL.1;DATABASE=" & mDatabaseName & ";uid=sa;pwd=vms;Server=" & mDBserverName & ";"
Set adoRecordset = New ADODB.Recordset
adoRecordset.Open "select name from employee", db.Connectionstring


If (Combo1 = "ssn") Then
Set Text1.DataSource = adoRecordset
Text1.DataField = "name"

Set Text2.DataSource = adoRecordset
Text2.DataField = "age"

Set Text3.DataSource = adoRecordset
Text3.DataField = "dept"


End If

End Sub



if i use form load for combo box it gives ambigous error....i want to add command button also plz giv ur suggestion plz

[debasisdas]

adoRecordset.Open "select name from employee", db.Connectionstring


If (Combo1 = "ssn") Then
Set Text1.DataSource = adoRecordset
Text1.DataField = "name"

Set Text2.DataSource = adoRecordset
Text2.DataField = "age"

Set Text3.DataSource = adoRecordset
Text3.DataField = "dept"

End If
End Sub

In the recorset open ,you are selecting only the name from the table.
then how your DataField is age and dept for text2 and text3 respectively.

[chans]

In the recorset open ,you are selecting only the name from the table.
then how your DataField is age and dept for text2 and text3 respectively.

i hav to print all these from from database how to do that?

[chans]

i hav to print all these from from database how to do that?

when i click on command button on giving ssn it has to retrive all info from employee table

[chans]

when i click on command button on giving ssn it has to retrive all info from employee table

adoRecordset.Open "select name from employee", db.Connectionstring
adoRecordset.Open "select age from employee", db.Connectionstring
adoRecordset.Open "select dept from employee", db.Connectionstring

If (Combo1 = "ssn") Then
Set Text1.DataSource = adoRecordset
Text1.DataField = "name"

Set Text2.DataSource = adoRecordset
Text2.DataField = "age"

Set Text3.DataSource = adoRecordset
Text3.DataField = "dept"

End If

is this ok now sir

[jrtox]

when i click on command button on giving ssn it has to retrive all info from employee table

Hello,
http://www.thescripts.com/forum/thread718154.html
go to this and download my attachment, maybe it could help for your lesson.
Study the program.

its simple.

Regards
Phils Ervin