高分求解:VB和MySQL的问题

qly2010 2003-08-26 08:34:41
各位大侠,我想做一个学生管理的程序.数据库为MySQL在Linux上.客户端用VB开发.请问MySQL在LINUX上和在WIN2000上有什么区别吗?在VB网络数据库编程方面有什么要求吗?
有谁可以在这方面给我一些提示.高分相送!
最好有源码给我一个.或有好书推荐一下!!
小弟这里多谢了!
...全文
45 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
qly2010 2003-08-28
  • 打赏
  • 举报
回复
up
qly2010 2003-08-26
  • 打赏
  • 举报
回复
我不是很了解LINUX.
对于VB的数据库编程是不是与服务器的操作系统无关而只与数据库本身有关呢?
在哪里能找到 MySQL 的安装程序?
对于MySQL在LINUX上设置有什么要注意的地方吗?

请各位大侠帮忙,一定给分.
dengyiwolf 2003-08-26
  • 打赏
  • 举报
回复
十分关注....
kuangyulai 2003-08-26
  • 打赏
  • 举报
回复
标准答案来了,我就不多说了!
lihonggen0 2003-08-26
  • 打赏
  • 举报
回复
MySQL在LINUX上和在WIN2000上都可以连接的

http://www.mysql.com
安装MySQL ODBC 3.51 Driver驱动


The following ADO(ActiveX Data Objects) sample creates a table my_ado and demonstrates the usage of rs.addNew, rs.delete and rs.update.

Private Sub myodbc_ado_Click()

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
xayzmb 2003-08-26
  • 打赏
  • 举报
回复
顶一下
关注ing...........
hc_z 2003-08-26
  • 打赏
  • 举报
回复
学习

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧