pake refnya yang mana ?
sepengalaman saya untuk ke database DBase pake ref DAO 3.51, lebih
baik dibanding yang diatasnya. karena saya sudah coba DAO yang 4
kadang hasilnya suka kacau.
jangan pake ado untuk buka yang database DBASEnya
bambang
bambang> Master2 semua aku udah ngerancang program sederhana
bambang> mengupdate dan menampilkan data dari dBASE menggunakan VB. Sukses sih
bambang> Tp masalahnya pas diakses lewat dBASEnya langsung ada Error
bambang> yang menyatakan not a dBASE database. Codingnya tuh kayak gini
bambang> Dim MyDB As ADODB.Connection
bambang> Dim Cmd As ADODB.Command
bambang> Dim RcJudul As ADODB.Recordset
bambang> Dim cn As String
bambang> Dim Ketemu As Integer
bambang> Private Sub CariBtn_Click()
bambang> Dim KataKunci As String
bambang> KataKunci = Text1.Text
bambang> List1.Clear
bambang> Label2.Caption = ""
bambang> If KataKunci = "" Then
bambang> MsgBox "Masukkan kata kunci pencarian"
bambang> Exit Sub
bambang> End If
bambang> RcJudul.MoveFirst
bambang> If RcJudul.EOF Then
bambang> MsgBox "Tidak ada judul buku yang dicari!!", vbCritical, "Item Not
Found"
bambang> Exit Sub
bambang> End If
bambang> Do While Not RcJudul.EOF
bambang> RcJudul.Find ("Title like '*" + KataKunci + "*'")
bambang> If RcJudul.EOF Then Exit Do
bambang> List1.AddItem RcJudul!Title
bambang> Ketemu = Ketemu + 1
bambang> RcJudul.MoveNext
bambang> Loop
bambang> Label2.Caption = " Ada" + Str(Ketemu) + "judul buku yang berhubungan "
_
bambang> & "dengan kata kunci " + KataKunci + "."
bambang>
bambang> RcJudul.MoveFirst
bambang> Ketemu = 0
bambang> End Sub
bambang> Private Sub Command1_Click()
bambang> Unload Me
bambang> End Sub
bambang> Private Sub Form_Load()
bambang> Set MyDB = New ADODB.Connection
bambang> Set Cmd = New ADODB.Command
bambang> Set RcJudul = New ADODB.Recordset
bambang> cn = "Provider =Microsoft.Jet.OLEDB.4.0;" _
bambang> & "Data Source =C:\Program Files\Microsoft Visual
Studio\VB98\biblio.mdb;"
bambang> MyDB.CursorLocation = adUseClient
bambang> MyDB.Open cn
bambang> Cmd.CommandText = "SELECT * FROM titles"
bambang> Set Cmd.ActiveConnection = MyDB
bambang> Set RcJudul = Cmd.Execute
bambang> End Sub
bambang> Private Sub Text1_KeyPress(KeyAscii As Integer)
bambang> If KeyAscii = 13 Then CariBtn_Click
bambang> End Sub
bambang> MOHON BANTUANNYA
bambang>
bambang> ---------------------------------
bambang> Be a PS3 game guru.
bambang> Get your game face on with the latest PS3 news and previews at Yahoo!
Games.
bambang> [Non-text portions of this message have been removed]
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED]
Yahoo : Henqy
Skype : Hengky_Purnomo
