koneksi database sql server dan vibi-part 2

perlu pembaharuan sedikit pada part pertama...hehehe..
soalnya gini ni, klo program dah di compile dan udah jadi exe sedangkan proses pembacaan databasenya langsung include di listing, ntar to klo ada rename database nya susah juga benerinnya. masa mo bongkar project lagi..ga profesional banget...

gini ni langakhnya..
step1. membuat file config.ini
-buka notepad
ada gak notepad?klo kagak ada berarti instal ulang deh tu windows..hihihihi..:D
-tuliskan seperti ini pada note:
Driver={SQL Server}; Server=(local); Database=perpus; uid=sa; pwd=;
- save file..
kasih nama tu file nya: config.ini
trus untuk pilihannya pilih all file.
-klik save...

step2. membuat module fungsi pembacan file pada vibi:
-bikin modul nya
-ketikan fungsi nya disini
Public dbCon As New Connection
Public strCon As String
Public Function ReadTextFileContents(fileName As String) As String

Dim fNum As Integer, isOpen As Boolean

On Error GoTo error_handler
fNum = FreeFile()
Open fileName For Input As #fNum
isOpen = True

ReadTextFileContents = Input(LOF(fNum), fNum)

error_handler:
If isOpen Then Close #fNum
If Err Then Err.Raise Err.Number, , Err.Description

End Function

Sub ActCon()
On Error GoTo elol
Dim sFile As String, sPath As String
sFile = App.Path & "\config.INI"

strCon = ReadTextFileContents(sFile)
dbCon.CursorLocation = adUseClient
If dbCon.state = adStateClosed Then
dbCon.Open strCon
If dbCon.state = adStateClosed Then
MsgBox "gagal konek"
End If
End If

elol:
sFile = App.Path & "\config2.INI"

strCon = ReadTextFileContents(sFile)
dbCon.CursorLocation = adUseClienthttp://www.blogger.com/img/blank.gif
If dbCon.state = adStateClosed Then
dbCon.Open strCon
If dbCon.state = adStateClosed Then
MsgBox "gagal konek"
End If
End If

End Sub



step3. Bikin formnya

-pilih formnya kaya koneksi database sql sebelumnya.
-masukkan perintah query nya
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

sql = "insert into a02_kelas(kelas,id_user,xtgl)values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"

Set rs = dbCon.Execute(sql)
MsgBox "sukses"
' rs.Open "insert into a02_kelas(kelas,id_user,xtgl)values('" & Text1.Text & "','" & Text2.Text & "',now)", dbCon, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Form_Load()
ActCon
Text3.Text = Date
End Sub

step3.jangan lupa koment nya..heheheh
:P
slamat mencoba...

Posted in: Visual Basic