minta tolong pasal error dalam visual basic 6.0

[faizulit]

code yg terbina sekarang

Private Sub Command2_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\FAIZUL\Desktop\Prototype3\prototype3.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * from table1"
Set DataGrid1.DataSource = Adodc1

DataEnvironment1.Search Text1.Text
With DataEnvironment1.rsSearch
If Text1.Text = "" Then
Unload Me
MsgBox "Dont lets this text box empty, if empty you will terminate immediately", vbCritical
End
ElseIf DataEnvironment1.rsSearch.EOF Then
MsgBox "Sorry Not Found", vbCritical

Else
MsgBox "Found", vbInformation
Text1.Text = DataEnvironment1.rsSearch.Fields("MATRIK")
Text2.Text = DataEnvironment1.rsSearch.Fields("NAMA")
Text3.Text = DataEnvironment1.rsSearch.Fields("NOIC")
Text4.Text = DataEnvironment1.rsSearch.Fields("GENDER")
Text5.Text = DataEnvironment1.rsSearch.Fields("RELIGION")
Text6.Text = DataEnvironment1.rsSearch.Fields("RACE")
Text7.Text = DataEnvironment1.rsSearch.Fields("ADDRESS")
Text8.Text = DataEnvironment1.rsSearch.Fields("CONTACT")
Text9.Text = DataEnvironment1.rsSearch.Fields("EMAIL")
Text10.Text = DataEnvironment1.rsSearch.Fields("POINTER")

Adodc1.Close
    Set Adodc1 = Nothing

End If
Close
End With
End Sub

betul kah?

 

[faizulit]

lagi satu sy terlepas pandang
kalo cut code ni

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\FAIZUL\Desktop\Prototype3\prototype3.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * from table1"
Set DataGrid1.DataSource = Adodc1

pergi ke Command2_Click(),datagrid tak menunjukkan data2 yg ad.

 

[apis17]

susah jugak benda ni aa?

 

[faizulit]

nak tanya kpd CGrian yg otai visual basic 6.0
sy mungkin hampir utk penyelesaian error ni

sy nak tanya ada ke syntax selepas memberi arahan close then suruh open balik then close berulang-alik antara tiga arahan tu.

contoh close > open > ulang ke close > open > ulang ke close.

tak silap ade rasenye tpi tak tau code die mcmane.

 

[masokis]

amalkan kerja teratur dan bersistem. buat modul utk check sama ada open atau tak. dan close dah ke belum...

nak tanya kpd CGrian yg otai visual basic 6.0
sy mungkin hampir utk penyelesaian error ni

sy nak tanya ada ke syntax selepas memberi arahan close then suruh open balik then close berulang-alik antara tiga arahan tu.

contoh close > open > ulang ke close > open > ulang ke close.

tak silap ade rasenye tpi tak tau code die mcmane.

 

[apis17]

masalah sekarang ni, error ni pon oleh kerana ade satu "benda" sudah dibuka,memerlukan utk di tutup, so bile nak tekan search skali lagi die kuar error 3705 tu.sy rase kalo dpt command utk close "benda ni" sy rase error tu dh tak de kot

dan skrg ni sy tak tau "benda" ape yg dimaksudkan oleh vb6 ni

PRB: Run-Time Error Message 3705 Occurs When Trying to Set the ActiveConnection Property of an ADO Recordset to Nothing

http://support.microsoft.com/kb/275927

keyword google ialah "adodc close 3705" try.

 

[FAUZEY_FX]

fuhhh..hebat2 sume...

 

[faizulit]

salam, terimakasih semuanya kerana membantu, akhirnya, masalah sy menjumpai jalan keluar, dgn menggunakan pendekatan ADODB, ADODC nampaknya agak susah bagi sy. terima kasih, benda ni dah SOLVED.

p/s : mcmane ek nak LOCK tread ni.

 

[apis17]

salam, terimakasih semuanya kerana membantu, akhirnya, masalah sy menjumpai jalan keluar, dgn menggunakan pendekatan ADODB, ADODC nampaknya agak susah bagi sy. terima kasih, benda ni dah SOLVED.

p/s : mcmane ek nak LOCK tread ni.

aa.. lupa. adodb lagi mudah la. awat tak terpikir awal2 nih. adoih adoih.

p:s/ mana pakcik mod ni?