vb连接数据库
来源:互联网 发布:c语言打印字母图形 编辑:程序博客网 时间:2024/05/01 18:57
Private Sub cmd1_Click()
Dim cnn As ADODB.Connection
Dim my_recordset As ADODB.Recordset
Dim connect_string As String
Dim statestring As String
Set cnn = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
'连接Access数据库
connect_string = "DSN=medic_lib97;UID=;PSW="
cnn.Open connect_string
Select Case cnn.State
Case adStateClose
statestring = "adStateClosed"
Case adStateOpen
statestring = "adStateOpen"
End Select
'显示连接的状态
MsgBox "连接成功!", , statestring
If Trim(Combo1.Text = "") Then
MsgBox ("用户名不能为空,请重新输入!")
txt2.Text = ""
Combo1.SetFocus
Else
If Trim(txt2.Text = "") Then
MsgBox ("密码不能为空,请重新输入!")
txt2.Text = ""
txt2.SetFocus
Else
my_recordset.Open "select * from user where id='" & Combo1.Text & "'", cnn
If my_recordset.EOF = True Then
MsgBox ("用户名不存在!")
Combo1.Text = ""
txt2.Text = ""
Combo1.SetFocus
Else
If (Trim(txt2.Text) = my_recordset.Fields("passwd")) Then
Me.Hide
Frm_main.Show
'MsgBox ("登陆成功!")
Else
MsgBox ("密码错误,登录失败!")
txt2.Text = ""
txt2.SetFocus
End If
End If
End If
End If
End Sub
Dim cnn As ADODB.Connection
Dim my_recordset As ADODB.Recordset
Dim connect_string As String
Dim statestring As String
Set cnn = New ADODB.Connection
Set my_recordset = New ADODB.Recordset
'连接Access数据库
connect_string = "DSN=medic_lib97;UID=;PSW="
cnn.Open connect_string
Select Case cnn.State
Case adStateClose
statestring = "adStateClosed"
Case adStateOpen
statestring = "adStateOpen"
End Select
'显示连接的状态
MsgBox "连接成功!", , statestring
If Trim(Combo1.Text = "") Then
MsgBox ("用户名不能为空,请重新输入!")
txt2.Text = ""
Combo1.SetFocus
Else
If Trim(txt2.Text = "") Then
MsgBox ("密码不能为空,请重新输入!")
txt2.Text = ""
txt2.SetFocus
Else
my_recordset.Open "select * from user where id='" & Combo1.Text & "'", cnn
If my_recordset.EOF = True Then
MsgBox ("用户名不存在!")
Combo1.Text = ""
txt2.Text = ""
Combo1.SetFocus
Else
If (Trim(txt2.Text) = my_recordset.Fields("passwd")) Then
Me.Hide
Frm_main.Show
'MsgBox ("登陆成功!")
Else
MsgBox ("密码错误,登录失败!")
txt2.Text = ""
txt2.SetFocus
End If
End If
End If
End If
End Sub
- VB连接ORACLE数据库
- VB ADO 连接数据库
- VB连接数据库
- VB.NET 连接数据库
- VB连接oracle9I数据库
- VB连接ACCESS数据库
- VB 连接mysql数据库
- VB连接Mysql数据库
- VB连接数据库
- vb连接数据库
- VB 连接Oracle数据库
- vb 连接数据库
- vb 查询,连接数据库
- VB连接access数据库
- VB连接数据库
- VB 连接SQL2000数据库代码
- VB.NET连接数据库总结
- VB ado连接数据库 sql2005
- 在application中 context的 在全局中使用是否会存在内存泄漏
- 经商之道28条+商场10忌
- SecureCRT脚本
- [java]线程总结
- 青涩的思绪 泛起粉色的涟漪
- vb连接数据库
- 【Effective c++】条款13:以对象管理资源
- ACM大牛!!!!!!
- linux kenrel 笔记
- 通过hello world介绍2.6内核模块编译的最基本原理 .
- 羌笛声声胡笳怨,此心长寄天涯远
- F7过滤方法
- google语音 API vs 国产 科大讯飞
- iTween介绍和用法