minta tolong pasal error dalam visual basic 6.0

[AjuL]

ni menunjukkan rsSearch tu dah open dan diopen lagi..sepatutnya close object tu dan open balik...

If rsSearch.State = adStateOpen Then rsSearch.Close

ni cuma kemungkinan je..cuba upload full project ...atau part yg terlibat dengan search function ni...dan bila debug highlight error kat mana?

 

[faizulit]

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

 

[AjuL]

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

jap adakah kat Form_Load ada open connection terus?

kalau ada cuba unload dulu...

 

[faizulit]

dekat form_load ade buat connection kot. ni code die

Private Sub Form_Load()
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
End Sub

 

[faizulit]

aku pom lama tak men VB neh..cuba neh...
"DataEnvironment1.Search = Text1.Text"

dah cuba ada error jugak, sy rase error nye bukan kat situ la mr.shaman_xeon.
anyway thanks for respon

 

[faizulit]

mr.ajul :
nak unload mcmane?

 

[AjuL]

dekat form_load ade buat connection kot. ni code die

Private Sub Form_Load()
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
End Sub

Remove code connection pada form load..dan open connection pada satu2 form even..maksudnya...bila nk buat search ..baru open connection dalam form event yg spesifik.

 

[faizulit]

mcmane tu mr.ajul. sbb interface sy ni sy letak text box utk key in data, button2 arahan, adodc, dgn datagrid dalam satu interface.

 

[xpadanfc]

lama aku x guna vb ni, maksud ajul ko kena set open connection setiap awal event seperti ni, lepas ko kena close connection tersebut.

Private Sub Command2_Click()
[B]
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[/B]

DataEnvironment1.Search Text1.Text
With DataEnvironment1.rsSearch
...

 [B]Adodc1.Close
 Set Adodc1= Nothing[/B]
  end sub

cuba dulu.

 

[faizulit]

letak connection dari form_load ke command2_click.
brilliant.

tpi ade problem,it says "compile error, method or data not found."

part yg error adalah :

Adodc1.Close<<<<< die label kat .Close
Set Adodc1= Nothing