Username Password

Register Here || Lost Password
View Thread
Explore Your Brain Pemrograman Visual Basic
orror vb
Username
Password
Register FAQ Members List Today's Posts Search

Print Thread

08-07-2009 04:21 PM orror vb
User Avatar

andi
Jounin


Posts: 160
Joined: 05.03.09
Location: blacknet
Age: 31
hit kakak help me...
gw mencari beberapa data dari Microsoft akses.
tapi malah muncul. runtime error 3021.

ne code yang gw pake.
Here is my coding.

Private Sub Command1_Click()
Dim i As Integer
i = 0
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("Country"Wink.Value = Text2.Text Then

Text1.Text = Adodc1.Recordset.Fields("Email"Wink.Value

Do While i < Text3.Text + 1
Adodc1.Recordset.MoveNext
Text1.Text = Text1.Text & vbCrLf & ";" & vbCrLf & Adodc1.Recordset.Fields("Email"Wink.Value
i = i + 1
Loop

Exit Sub
Else
Adodc1.Recordset.MoveNext
End If

Loop
Exit Sub

MsgBox "Customer Name is Not Found!", vbOKOnly, "Warning!!"



End Sub


Ngudut
 
Offline
Jump to Forum:
Forum powered by fusionBoard
Share this Thread
URL:
BBcode:
HTML:
Copyright © 2007-2016