LabQ5

DataControl1 .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Nama_Database;Data Source=Nama_Server"'DataControl1.Source = "SELECT * FROM Nama_Tabel" Field1.DataField = "Nama_Field" DbAcax .Open "Provider=MSDATASHAPE; Data Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=passlabq5; Data Source=" & App.Path &"\Prjc_Laporan_Kegiatan.mdb"'DbAcax.CursorLocation = adUseClient MySQL Connection String = "Data Source=.\SQLEXPRESS;AttachDbFilename=DataDirectory\RFPdb.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

Private Sub Form_Load() On Error GoTo handl Set DbAcax = New ADODB.Connection DbAcax.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=PassWord; Data Source=" & App.Path & "\.mdb" DbAcax.CursorLocation = adUseClient BukaRS Exit Sub handl: If Err 0 Then MsgBox Err.Description, , " Lab~Q 5" End If End Sub