Selamat malam sobat kali ini saya sebagai orang ganteng ingin memberikan suatu tutorial tentang bagaimana cara membuat password dari VB 2010 Dengan mengkoneksikanya dengan Ms. Access 2007.
Langsung saja langkah pertama
1. buatlah suatu db siswa dan tabel seperti gambar di bawah ini
2. setelah itu simpan dengan nama tblLogin
3. buatlah sebuah 2 form pada form1 buatlah pengaturan sebagai berikut.
4. Aturlah Properti Sebagai berikut :
5. setelah itu Buatlah sebuah class koneksi lihat gambar :D :
6. Jangan Lupa Berikan Nama clskoneksi seperti gambar di bawah ini lalu klik add
7. setelah usai masukkan kode berikut ini :D
System.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDbSystem.Data.OleDb
PublicPublicPublicPublicPublicPublic ClassClassClassClassClass clskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksi
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = tbllogin = NewNewNew DataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTable
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected SQL SQL SQL SQL As StringStringStringStringStringString
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected database database database database database database database database database As OleDb.OleDb.OleDb.OleDb.OleDb.OleDb.OleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnection
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected Cmd Cmd Cmd Cmd As OleDb.OleDb.OleDb.OleDb.OleDb.OleDb.OleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommandOleDbCommand
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected Da Da Da As OleDb.OleDb.OleDb.OleDb.OleDb.OleDb.OleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapter
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected Ds Ds Ds As DataSetDataSetDataSetDataSetDataSetDataSetDataSet
ProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtectedProtected Dt Dt Dt As DataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTable
PublicPublicPublicPublicPublicPublic FunctionFunctionFunctionFunctionFunctionFunctionFunctionFunction OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() As BooleanBooleanBooleanBooleanBooleanBooleanBoolean
database = database = database = database = database = database = database = database = database = database = database = NewNewNew OleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnectionOleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data "Provider=Microsoft.ACE.OLEDB.12.0; Data source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb"source=dbsiswa.accdb")
database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()database.Open()
If database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> database.State <> ConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionStateConnectionState.Open .Open .Open .Open .Open .Open ThenThenThenThen
Re turnturnturnturn FalseFalseFalseFalseFalse
ElseElseElseElse
ReturnReturnReturnReturnReturnReturn TrueTrueTrueTrue
EndEndEnd If
EndEndEnd FunctionFunctionFunctionFunctionFunctionFunctionFunctionFunction
PublicPublicPublicPublicPublicPublic SubSubSub CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()CloseConn()
If NotNotNot IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) IsNothing(database) ThenThenThenThen
database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()database.Close()
database = database = database = database = database = database = database = database = database = database = database = NothingNothingNothingNothingNothingNothingNothing
EndEndEnd If
EndEndEnd SubSubSub
PublicPublicPublicPublicPublicPublic FunctionFunctionFunctionFunctionFunctionFunctionFunctionFunction ExecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(xecuteQuery(ByValByValByValByValByVal Query Query Query Query Query Query As StringStringStringStringStringString) As DataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTable
If NotNotNot OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() OpenConn() ThenThenThenThen
MsgBox(MsgBox(MsgBox(MsgBox(MsgBox(MsgBox(MsgBox("Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!""Koneksi Gagal..!!", MsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyleMsgBoxStyle.Critical, .Critical, .Critical, .Critical, .Critical, .Critical, .Critical, .Critical, .Critical, .Critical, .Critical, "Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed""Access Failed")
ReturnReturnReturnReturnReturnReturn NothingNothingNothingNothingNothingNothingNothing
Exit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit FunctionExit Function
EndEndEnd If
Cmd = Cmd = Cmd = Cmd = Cmd = Cmd = NewNewNew OleDb.OleDb.OleDb.OleDb.OleDb.OleDb.OleDOleDOleDOleDbCommandbCommandbCommandbCommandbCommandbCommandbCommandbCommand(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)(Query, database)
Da = Da = Da = Da = Da = NewNewNew Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.Data.OleDb.OleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapterOleDbDataAdapter
Da.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = CmdDa.SelectCommand = Cmd
Ds = Ds = Ds = Ds = Ds = NewNewNew Data.Data.Data.Data.Data.DataSetDataSetDataSetDataSetDataSetDataSetDataSet
Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)Da.Fill(Ds)
Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)Dt = Ds.Tables(0)
ReturnReturnReturnReturnReturnReturn Dt
Dt = Dt = Dt = Dt = Dt = NothingNothingNothingNothingNothingNothingNothing
Ds = Ds = Ds = Ds = Ds = NothingNothingNothingNothingNothingNothingNothing
Da = Da = Da = Da = Da = NothiNothiNothiNothiNothing
Cmd = Cmd = Cmd = Cmd = Cmd = Cmd = NothingNothingNothingNothingNothingNothingNothing
EndEndEnd FunctionFunctionFunctionFunction
8. langkah selanjutnya klik kanan pada form1 lalu pilih view
9. masukkan kode di bawah ini
PublicPublicPublicPublicPublicPublic ClassClassClassClassClass Form1Form1Form1Form1Form1
DimDimDim tblLogin tblLogin tblLogin tblLogin tblLogin tblLogin tblLogin tblLogin tblLogin As DataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTableDataTable
DimDimDim Proses Proses Proses Proses Proses Proses Proses As NewNewNew clskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksiclskoneksi
SubSubSub bersih()bersih()bersih()bersih()bersih()bersih()bersih()bersih()
TextBox1TextBox1TextBox1TextBox1TextBox1TextBox1TextBox1TextBox1.Text = .Text = .Text = .Text = .Text = .Text = .Text = .Text = ""
TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = ""
TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()
EndEndEnd SubSubSub
SubSubSub Login()Login()Login()Login()Login()Login()Login()
If TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = TextBox1.Text = "" ThenThenThenThen TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : TextBox1.Focus() : Exit SubExit SubExit SubExit SubExit SubExit SubExit SubExit Sub
If TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = TextBox2.Text = "" ThenThenThenThen TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : TextBox2.Focus() : Exit SubExit SubExit SubExit SubExit SubExit SubExit SubExit Sub
tblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuerytblLogin = Proses.ExecuteQuery("Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = "Select * From Tbllogin Where username = '" & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text & TextBox1.Text "' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='""' and password ='" & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text & TextBox2.Text "'""'""'")
If tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 tblLogin.Rows.Count = 0 ThenThenThenThen
MessageBoxMessageBoxMessageBoxMessageBoxMessageBoxMessageBoxMessageBoxMessageBoxMessageBoxMessageBox.Show(.Show(.Show(.Show(.Show(.Show("Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!""Login tidak berhasil..!!", "Informasi""Informasi""Informasi""Informasi""Informasi""Informasi""Informasi""Informasi""Informasi""Informasi""Informasi", MessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtonsMessageBoxButtons.OK, .OK, .OK, .OK, .OK, MessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIconMessageBoxIcon.Info.Info.Info.Info.Information)rmation)rmation)rmation)rmation)rmation)rmation)rmation)
TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()TextBox1.Focus()
ElseElseElseElse
form2form2form2form2form2.Show().Show().Show().Show().Show().Show().Show()
Me .Hide().Hide().Hide().Hide().Hide().Hide().Hide()
EndEndEnd If
EndEndEnd SubSubSub
EndEndEnd ClassClassClassClassClass
10. setelah kode di masukkan klik 2 kali pada button login kemudian masukkan kode di bawah ini :D
PrivatePrivatePrivatePrivatePrivatePrivatePrivate SubSubSub Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(Button1_Click(ByValByValByValByValByVal sender sender sender sender sender sender sender As System.System.System.System.System.System.System.Objectbjectbjectbjectbject, ByValByValByValByValByVal e As System.System.System.System.System.System.System.EventArgsEventArgsEventArgsEventArgsEventArgsEventArgsEventArgsEventArgsEventArgs) HandlesHandlesHandlesHandlesHandlesHandlesHandles Button1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.ClickButton1.Click
CallCallCallCall Login()Login()Login()Login()Login()Login()Login()
EndEndEnd SubSubSub
11. Klik 2 kali pada button close setelah itu masukkan kodenya.
rivatePrivatePrivatePrivatePrivatePrivatePrivate SubSubSub Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(Button2_Click(ByValByValByValByValByVal sender sender sender sender sender sender sender As System.System.System.System.System.System.System.ObjectObjectObjectObjectObjectObject, ByValByValByValByValByVal e As System.System.System.System.System.System.System.EventArgsEventArgsEventArgsEventArgsEventArgsEventArgsEventArgsEventArgsEventArgs) HandlesHandlesHandlesHandlesHandlesHandlesHandles ButtButtButtButton2.Clickon2.Clickon2.Clickon2.Clickon2.Clickon2.Clickon2.Clickon2.Clickon2.Click
EndEndEnd
EndEndEnd SubSubSub
12. simpan pekerjaan andA dengan nama loginaccess seperti gambar berikut :
13. setelah itu pindahkan db yang agan buat tadi ke Documen > Visual Studio 2010 > Project > Loginaccess > Bin > Debug
14. sekarang coba jalankan Projek yang anda buat tadi.
Jika ada pertanyaan langsung lempar sendal ke admin ya pak sebisa saya ku jawab. :D Selamat beraktivitas////
Title : Cara membuat password Visual Basic 2010 Dengan Access 2007
Description : Selamat malam sobat kali ini saya sebagai orang ganteng ingin memberikan suatu tutorial tentang bagaimana cara membuat password dari VB ...
