vb mysql加载控件_vb用data控件为数据库添加新表？

郎朗坤

Dim oleCn As New OleDbConnection

    Dim oleCd As New OleDbCommand

    Dim oleDr As OleDbDataReader

    Dim oleAd As New OleDbDataAdapter

    Dim ds As New DataSet

     然后就能把textBox中的数据添加到数据库中

Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click

    oleCn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & databasename

            oleCd.Connection = oleCn

            oleAd.SelectCommand = oleCd

            ds.Tables.Add("t")

 Dim sql As String

                sql = "insert into " & tblName & "(字段名1,字段名2,字段名3 , ....) Values('" _

                                   & TextBox1 & "','" & TextBox2& "','" & TextBox3 ......& "')"

                                oleCd.CommandText = sql

                    oleCd.Connection.Open()

                    oleCd.ExecuteReader()

                    oleCd.Connection.Close()

                          End Sub 

这样是最最最简单的了，可不能再晕了阿！