实现VB与MySQL的连接
来源:互联网 发布:火车票生成器软件 编辑:程序博客网 时间:2024/06/05 04:02
Option Explicit
Dim strConn As String
Dim Conn As New ADODB.Connection
Dim rstType As New ADODB.Recordset
Dim rstBook As New ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
rstType.MoveNext
If rstType.EOF Then
rstType.MoveLast
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
'使窗体居中显示
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
'打开数据库和type表
strConn = "Driver=MySQL ODBC 3.51 Driver;Server=localhost;DataBase=bookdb;User Id=root;Password=nan"
Conn.Open strConn
Conn.Execute ("SET NAMES 'gb2312'")
sql = "select * from book"
Set rstType = Conn.Execute(sql)
Text1.Text = rstType.Fields("Bno")
Text2.Text = rstType.Fields("Blei")
Text3.Text = rstType.Fields("Bname")
Text4.Text = rstType.Fields("Bauthor")
Text5.Text = rstType.Fields("Bpress")
Text6.Text = rstType.Fields("Bdan")
Label1.Caption = rstType("Bname").Value
'用控件label1控件显示字段aaa
'rstType.Close '关闭表
'Set rstType = Nothing '释放资源
'Conn.Close '关闭数据库
'Set Conn = Nothing '释放资源
End Sub
Dim strConn As String
Dim Conn As New ADODB.Connection
Dim rstType As New ADODB.Recordset
Dim rstBook As New ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
rstType.MoveNext
If rstType.EOF Then
rstType.MoveLast
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
'使窗体居中显示
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
'打开数据库和type表
strConn = "Driver=MySQL ODBC 3.51 Driver;Server=localhost;DataBase=bookdb;User Id=root;Password=nan"
Conn.Open strConn
Conn.Execute ("SET NAMES 'gb2312'")
sql = "select * from book"
Set rstType = Conn.Execute(sql)
Text1.Text = rstType.Fields("Bno")
Text2.Text = rstType.Fields("Blei")
Text3.Text = rstType.Fields("Bname")
Text4.Text = rstType.Fields("Bauthor")
Text5.Text = rstType.Fields("Bpress")
Text6.Text = rstType.Fields("Bdan")
Label1.Caption = rstType("Bname").Value
'用控件label1控件显示字段aaa
'rstType.Close '关闭表
'Set rstType = Nothing '释放资源
'Conn.Close '关闭数据库
'Set Conn = Nothing '释放资源
End Sub
- 实现VB与MySQL的连接
- 实现VB与EXCEL的无缝连接
- 实现VB与EXCEL的无缝连接
- 实现VB与EXCEL的无缝连接 (转)
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接(ZT)
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接(转载)
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 如何实现VB与EXCEL的无缝连接
- 请教:linux shell中for循环中为什么要用两个小括号?
- 取得字符串的全部声母
- oracle常用命令
- 默认安装的RHEL里面没有将GCC加入环境变量
- WTL CFileDialog 文件选择对话框居中问题
- 实现VB与MySQL的连接
- JAVA基础知识精华总结(转载)
- ASP.NET 2.0个性化配置(profile)
- Google App Engine之初窥(大杂烩-了解先)
- windows编程——画键盘
- 深入理解C++对象模型默认构造函数笔记
- windows编程——滚动条
- VB数据库编程实现添加、查询、修改、删除
- asp.net 2.0异步页面