我试过,能把数据库里的东西读出来,但是执行其他操作的时候总是报错。
我是用VB的应用程序向导写的,不知道是不是因为这样有问题呢?
谢谢!!!
我是用VB的应用程序向导写的,不知道是不是因为这样有问题呢?
谢谢!!!
解决方案 »
- 关于openprocess的PROCESS_ALL_ACCESS未定义的问题,帮忙噢,谢谢
- 某字段中数据含有一个‘/’ 有的含有两个‘/’,如何 将含有一个的挑出?
- 怎样时程序允许时不获取焦点?
- VB232通讯遇到问题,太奇怪了,估计没人遇到过
- checkbox栈溢出
- 谁能帮帮我把这个vb 拼图游戏的程序调一下啊 谢谢了
- WORD生成完全通用组件新鲜上市
- 打印两个窗体如何让第一个窗体打印完后纸张不退出,接着打印第二个窗体内容?在线等候.
- 请教几个问题
- 我写的一个程序在98下用了两天后就出先“运行时错误‘380’无效属性值”怎么办啊!
- 如何制作收银小票打印(水晶报表)多谢各位了!在线等待
- create table 语句 中的 Null 值 为何 没有起作用?
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String 'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_
& " DATABASE=test;"_
& "UID=venu;PWD=venu; OPTION=3" conn.Open 'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
& "txt text, dt date, tm time, ts timestamp)" 'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')" Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer 'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") & "Initial my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.Name,
Next
Debug.Print Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.Value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close 'rs insert
rs.Open "select * from my_ado", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Name = "Monty"
rs!txt = "Insert row"
rs.Update
rs.Close 'rs update
rs.Open "SELECT * FROM my_ado"
rs!Name = "update"
rs!txt = "updated-row"
rs.Update
rs.Close 'rs update second time..
rs.Open "SELECT * FROM my_ado"
rs!Name = "update"
rs!txt = "updated-second-time"
rs.Update
rs.Close 'rs delete
rs.Open "SELECT * FROM my_ado"
rs.MoveNext
rs.MoveNext
rs.Delete
rs.Close 'fetch the updated table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") & "Updated my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.Name,
Next
Debug.Print Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.Value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close
conn.Close
End Sub
安装 mysqlcc-0.9.2-win32
安装 mysql-4.0.12-win
不用什么控件的!!
就到www.mysql.com下载