vb+mysql编程笔记之二

  今天对 vb+mysql编程头脑中渐渐形成模型.VB读MYSQL库,修改库

   首先,回答一个vb+myql链接远程数据库的问题,这个问题之前我比较迷惑,有经验的会觉得这不值一提,但从我的经历来看,这个问题会困惑初学者. 我们知道,在vb+access中,如果要链接局域网库,可以把链接库地址直接写为//ip地址/共享目录/*.mdb ,要说明的是局域网中mdb所在的目录一定要共享.如果对库进行修改,要完全共享.但这种写法链接不了远程固定ip服务器.但链接远程服务上的mysql数据库,这是可以实现的.写法为
dim conn as  New ADODB.Connection
dim rs as  New ADODB.RecordSet
dim connstr as String
conn.open ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=远程服务器IP地址;" & "DATABASE=data;" & "UID=root;PWD=root;OPTION=3"
如果是本地服务器,只需要将远程服务器地址改为:localhost .  UID和PWD换成你MYSQL库访问名称和密码即可

 使用vb读MYSQL库.
dim conn as  New ADODB.Connection
dim rs as  New ADODB.RecordSet
dim connstr as String
ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & "DATABASE=data; " _
 & "UID=root;PWD=root;OPTION=3"     '链接字符串赋值
conn.Open ConnStr 
rs.Open "select name,pw,userlevel from user where name='" & Text1.Text & "'  and  _
 pw='" & Text2.Text & "'", conn, adOpenStatic, adLockOptimistic
然后通过rs.Fields("name")即可访问当前记录内容.
 使用vb修改MYSQL库
dim conn as  New ADODB.Connection
dim rs as  New ADODB.RecordSet
dim connstr as Stringdim conn as  New ADODB.Connection
dim rs as  New ADODB.RecordSet
dim connstr as String
ConnStr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & "DATABASE=data;" _
& "UID=root;PWD=root;OPTION=3" '链接字符串赋值
rs.Open "select name,pw,userlevel from user where name='" & LogUserName & "'  and _
pw='" & LogUserPw & "'", conn, adOpenStatic, adLockOptimistic
rs.Close
 rs.Open "update user set pw='" & Trim(newpw.Text) & "'  where name='" & LogUserName & "'  and_
pw='" & LogUserPw & "'"
conn.close

有一个问题现在还比较困惑,如果表中只有一条记录.当你使用查询定位到此记录时,BOF与EOF均为真,而此时是不允许访问表中认何值的。这样有一个问题比较难以解决，当库中只一条记录时，如何对其进行取值？如何对其进行修改？

今天晚了，有了答案我会继续整理上来。希望对大家有帮助。