setahu saya kalo di .NET biasa cukup Imports MySql.Data.MySqlClient ini contoh class yang biasa saya pakai
Imports System.Data Imports MySql.Data.MySqlClient Imports System.Web.UI.WebControls Imports CustomControls Public Class clsDatabase Private Con As MySqlConnection Private Cmd As MySqlCommand Private Da As MySqlDataAdapter Private Ds, Result As New DataSet Private Cs As String = "server=localhost;user id=root; password=nintendo; database=edcdb; pooling=false" Private Tran As MySqlTransaction Public Function ExecSQL(ByVal SSQL As String) As Boolean Dim Success As Boolean Try Con = New MySqlConnection ' SqlConnection Con.ConnectionString = Cs '"Data Source=PRG31337;Initial Catalog=DBPICA;User ID=sa;Password=nintendo" Con.Open() Cmd = New MySqlCommand ' SqlCommand Cmd.Connection = Con Cmd.CommandText = SSQL Cmd.ExecuteNonQuery() Success = True Catch ex As Exception Success = False Finally Cmd.Dispose() Con.Close() End Try Return Success End Function Public Function ExecTRSQL(ByVal SSQL As ArrayList) As Boolean Dim Success As Boolean Try Con = New MySqlConnection ' SqlConnection Con.ConnectionString = Cs ' "Data Source=PRG31337;Initial Catalog=DBPICA;User ID=sa;Password=nintendo" Con.Open() Tran = Con.BeginTransaction Cmd = New MySqlCommand ' SqlCommand Cmd.Connection = Con Cmd.Transaction = Tran For Each SQLarr As String In SSQL Cmd.CommandText = SQLarr Cmd.ExecuteNonQuery() Next Tran.Commit() Success = True Catch ex As Exception Tran.Rollback() Success = False Finally Cmd.Dispose() Con.Close() End Try Return Success End Function Public Function GetData(ByVal SSQL As String) As DataSet Try Con = New MySqlConnection ' SqlConnection Con.ConnectionString = Cs '"Data Source=PRG31337;Initial Catalog=DBPICA;User ID=sa;Password=nintendo" Con.Open() Cmd = New MySqlCommand ' SqlCommand Cmd.Connection = Con Cmd.CommandText = SSQL Da = New MySqlDataAdapter ' SqlDataAdapter Da.SelectCommand = Cmd Ds = New DataSet Da.Fill(Ds, "Result") Catch ex As Exception 'Success = False Finally Cmd.Dispose() Con.Close() End Try Return Ds End Function Public Function GetDataTable(ByVal SSQL As String) As DataTable Dim objConn As New MySqlConnection(Cs) '"Data Source=PRG31337;Initial Catalog=DBPICA;User ID=sa;Password=nintendo") Dim objCommand As New MySqlCommand(SSQL, objConn) Dim da As New MySqlDataAdapter(objCommand) Dim dt As New DataTable() da.Fill(dt) Return dt End Function #Region "Binding On DataSource" Public Sub SetDataGrid(ByVal SSQL As String, ByVal Dg As System.Web.UI.WebControls.GridView) Result.Clear() Result = Me.GetData(SSQL) Dg.DataSource = Result '.GetXml Dg.DataBind() Dg.GridLines = GridLines.Both End Sub Public Sub SetXDataGrid(ByVal SSQL As String, ByVal Dg As CustomControls.Grid.xGrid) Result.Clear() Result = Me.GetData(SSQL) Dg.DataSource = Result '.GetXml Dg.DataBind() Dg.GridLines = GridLines.Both End Sub Public Sub SetDropDownList(ByVal SSQL As String, ByVal ShowText As String, ByVal ShowValue As String, ByVal DdList As System.Web.UI.WebControls.DropDownList) Result.Clear() Result = Me.GetData(SSQL) DdList.DataSource = GetData(SSQL) DdList.DataTextField = ShowText DdList.DataValueField = ShowValue DdList.DataBind() End Sub Public Sub SetListBox(ByVal SSQL As String, ByVal ShowText As String, ByVal ShowValue As String, ByVal LB As System.Web.UI.WebControls.ListBox) Result.Clear() Result = Me.GetData(SSQL) LB.DataSource = GetData(SSQL) LB.DataTextField = ShowText LB.DataValueField = ShowValue LB.DataBind() End Sub #End Region End Class ----- Original Message ----- From: Frangky To: [email protected] Sent: Thursday, February 14, 2008 1:30 PM Subject: RE: [Programmer-VB] Bagaimana cara menghubungkan VB 2005 ke MySQL Thanks Mba Lilis atas penjelasannya. Memang saya sengaja copy paste hampir semua code dari Mba Lilis, bagi saya yang penting Programnya jadi dulu (Bisa connect ke MySQL). Mengenai namespace, saya sudah paham Mba. Maklumlah saya inikan Beginner VB 6.0, yang saat ini dalam proses belajar VB 6.0. Bulan lalu baru tahu kalau VB 6.0 sedang dalam proses untuk disebut Program kuno (Program tempo doeloe). Untuk apa saya belajar VB 6, mendingan sekalian saja saya belajar VB 2005, dan lupakan VB 6.0 Hanya saja dalam 1 bulan terakhir ini saya sudah mencari teori dari berbagai sumber bagaimana mengkoneksikan VB 2005 ke MySQL, tapi sampai kemarin belum juga bisa. Mungkin teorinya dalam Bahasa Inggris ya! (Maklum Inggris saya pas-pasan). Hari ini karena bantuan Mba Lilis saya yakin pasti bisa. Hanya saja saya masih ada sedikit masalah Mba Lilis, Mohon perhatikan code dibawah ini. Program masih ada errornya. Mba Lilis tolong lihat pada code conn.open dibawah ini. Apakah seperti itu? Deskripsi errornya sbb: 1. 'MySql.Data.MySqlClient.Driver' is not accessible in this context because it is 'Private'. 2. Expression expected. Imports MySql.Data.MySqlClient Public Class Form1 Dim myString As String Dim conn As New MySqlConnection(myString) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load myString = "server=localhost;" _ & "uid=root;" _ & "pwd=snowman;" _ & "database=db1;" conn.Open(Driver= {MySQL ODBC 3.51 Driver};Server=localhost;Database=namadatabase; User=root;Password=namapassword;Option=3;) End Sub End Class Sekali lagi Terima kasih Mba Lilis atas bantuannya. -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Lilis Sent: 14 Februari 2008 12:49 To: [email protected] Subject: Re: [Programmer-VB] Bagaimana cara menghubungkan VB 2005 ke MySQL waduh mas franky ini koq nambah2 yg ga aku tulis ya hehehe. ikuti aja kode yg aku kasih mas, trus mengenai namespace itu ketiknya persis diatas tulisan public class form, jadi namespace artinya itu "spt" general declaration di vb6 atau alternatifnya ya ketik yg lengkap spt ini dim conn as new mysql.data.mysqlclient.mysqlconnection(mystring) nah kalo ngetik gitu kan kepanjangan tuh itu sebabnya utk menyingkatnya kita imports aja classnya di namespace yg spt ini : imports mysql.data.mysqlclient jadi utk use nya cuma ketik spt ini dim conn as new mysqlconnection(mystring) ok mas franky jgn tambah2 lagi ya, ga perlu sintak driver bla,..bla,...bla,... itu hnya di vb6 semoga bermanfaat ya mas franky salam lilis Wahana Programmer Groups Links Yahoo! Groups Links
