db2,mysql等数据库,不能像sql server,access,oracle那样可以直接引入修改和保存。
必须用ODBC连接,引入只能作为查询表,如连mysql
Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim sdr As MySql.Data.MySqlClient.MySqlDataReader
Dim connStr As String = "server=localhost; port=3306; user id=root; password=root; database=dbexhibitionprinter"
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Dim dt As new System.Data.DataTable
cmd = new MySql.Data.MySqlClient.MySqlCommand("select * fr om usersInfo", conn)
sdr = cmd.ExecuteReader()
dt.load(sdr)
Tables("窗口1_Table1").DataSource = dt
Tables("窗口1_Table1").AllowEdit = True
conn.close