koneksi visual basic dengan access

Lanjutan dari posting kemarin yaitu koneksi vb dengan SQl Server, sekarang saya akan memberikan listing untuk koneksi vb dengan ms. access bawaan microsoft. listing seperti berikut ini:

Public conn As ADODB.Connection

Sub main()
opendb
MDIUtama.Show
End Sub

Public Sub opendb()
Dim koneksi As String
Set conn = New ADODB.Connection

conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open App.Path & "\Rental.mdb"

End Sub

Cukup mudahkan! Selamat mencoba....!!!

Koneksi visual basic dengan SQL Server

Untuk mengkoneksikan aplikasi visual basic dengan SQL Server cukup mudah!pada project anda,tambahkan modul baru dan beri nama koneksi(Terserah anda sih!!). Kemudian Copypaste listing berikut:

Public mydata As New ADODB.Connection

Public Function bukadata() As Boolean
mydata.Provider = "sqloledb"
mydata.Open "SERVER=192.168.0.1;DATABASE=multilogistics;uid=;pwd="
'Ini untuk koneksi ke server di komputer lain. ipnya bisa anda ganti sesuia ip pada komputer server

mydata.Open "SERVER=(local);DATABASE=minimarket;uid=;pwd=" 'Ini untuk koneksi ke Server Local
'terserah anda mau pake yang mana
bukadata = True
End Function

Sub main()
bukadata
frmSplash.Show
End Sub

Selamat Mencoba!

membuat teks bolong

Untuk membuat teks bolong caranya cukup mudah! Pertama buka aplikasi visual basic, kemudian tambahkan 1 form dan 1 modul. pada modul, copypaste listing berikut:

Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Declare Function StrokePath Lib "gdi32" (ByVal hdc As Long) As Long

Kemudian pada form1 tambahkan 1 (satu) buah picture. kemudian copypaste listing berikut:

Private Sub Form_Load() 'Ganti "Masino Sinaga" dengan teks yang ingin Anda tampilkan Const TXT = "Masino Sinaga" Dim i As Long Dim hRgn As Long Picture1.AutoRedraw = True 'Pilih huruf. Sesuaikan dengan keinginan Anda... Picture1.Font.Name = "Times New Roman" Picture1.Font.Bold = True Picture1.Font.Size = 50 'Buat ukuran Picture1 cukup besar Picture1.Width = Picture1.TextWidth(TXT) Picture1.Height = Picture1.TextHeight(TXT) 'Untuk letak Picture1 BeginPath Picture1.hdc Picture1.CurrentX = 0 Picture1.CurrentY = 0 Picture1.Print TXT EndPath Picture1.hdc 'Gambar teks... StrokePath Picture1.hdc End Sub

Selamat mencoba!

Cara Membuat login pakai SQL dengan Visual Basic

Untuk membuat login pada visual basic dgn perintah SQL caranya cukup mudah. Copypaste listing di bawah ini:
Dim cekdata As New ADODB.Recordset
If cekdata.State = adStateOpen Then cekdata.Close
cekdata.Open "select * from security where nmuser= '" & trim(txtuser.Text) & "' and pwd= '" & trim(txtpwd.Text) & "' ", mydata, adOpenDynamic, adLockOptimistic
If cekdata.EOF = False Or cekdata.BOF = False Then
mdiform.show
else
MsgBox "User atau Password yang anda masukkan salah!", vbInformation + vbOKOnly, "Error"
end if

selamat mencoba!!!
Note:mydata adalah nama koneksi yg sy gunakan.

Cara membuat penomoran otomatis pakai visual basic

Untuk membuat penomoran otomatis pada visual basic caranya cukup mudah. copypaste listing di bawah ini:
Sub isinomor()
Dim MyId As String
Dim AgenId As New ADODB.Recordset
If AgenId.State = adStateOpen Then AgenId.Close
AgenId.Open "select right(kdbarang,3)as AgenId from barang order by kdbarang desc", mydata, adOpenForwardOnly, adLockReadOnly
If Not (AgenId.EOF = True Or AgenId.BOF = True) Then
AgenId.MoveFirst
txtkdbarang.Text = ""
txtkdbarang.Text = "B-"
MyId = Val(AgenId.Fields(0))
If Len(MyId) = 1 And Not MyId = 9 Then
txtkdbarang.Text = txtkdbarang.Text & "00" & Val(MyId + 1)
ElseIf Len(MyId) = 2 And Not MyId = 99 Or MyId = 9 Then
txtkdbarang.Text = txtkdbarang.Text & "0" & Val(MyId + 1)
ElseIf Len(MyId) = 3 And Not MyId = 999 Or MyId = 99 Then
txtkdbarang.Text = txtkdbarang.Text & "" & Val(MyId + 1)
End If
Else
txtkdbarang.Text = "B-" & "001"
End If
End Sub

untuk memanggilnya tinggal mengetik:
call isinomor
Selamat mencoba!