我在做一个图书管理系统,可是在数据库连接的时候,总是不可以通过,让我好郁闷,请各位高手指点!
模块代码是这样的:
Option Explicit
Private g_conn As New ADODB.Connection
Private Const strConn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Library_Info;Data Source=."
Public Function ConnectToServer() As Boolean
On Error GoTo ErrorHandler
ConnectToServer = False
g_conn.ConnectionString = strConn
g_conn.ConnectionTimeout = 30
g_conn.CommandTimeout = 30
g_conn.Open
ConnectToServer = True
Exit Function
ErrorHandler:
MsgBox Err.Description, vbCritical + vbOKOnly, "连接失败"
End Function
Public Function disConnToServer() As Boolean
On Error GoTo ErrorHandler
disConnToServer = False
If g_conn.State = adStateOpen Then
g_conn.Close
End If
disConnToServer = True
Exit Function
ErrorHandler:
MsgBox Err.Description, vbCritical + vbOKOnly, "注销失败"
End Function
Public Function ExecuteSql(ByVal SQL As String) As Boolean
On Error GoTo ErrorHandler
ExecuteSql = False
g_conn.Execute SQL
ExecuteSql = True
Exit Function
ErrorHandler:
MsgBox Err.Description, vbCritical + vbOKOnly, "执行失败"
End Function
Sub main()
If ConnectToServer() Then
MsgBox "连接成功"
Else
MsgBox "连接失败"
End If
frmDl.Show
End Sub
实现读者记录增加的代码如下:
Private Sub cmdOk_Click()
If txtReaderNum.Text = "" Then
MsgBox "读者编号不可以为空！", vbInformation + vbOKOnly, "警告"
txtReaderNum.SetFocus
Exit Sub
End If
If txtName.Text = "" Then
MsgBox "读者姓名不可以为空！", vbInformation + vbOKOnly, "警告"
txtName.SetFocus
Exit Sub
End If
If txtSex.Text = "" Then
MsgBox "读者年龄不可以为空！", vbInformation + vbOKOnly, "警告"
txtSex.SetFocus
Exit Sub
End If
If txtAge.Text = "" Then
MsgBox "读者性别不可以为空！", vbInformation + vbOKOnly, "警告"
txtAge.SetFocus
Exit Sub
End If
If txtTime.Text = "" Then
MsgBox "办证时间不可以为空！", vbInformation + vbOKOnly, "警告"
txtTime.SetFocus
Exit Sub
End If
sqlstr = "insert into REader_Info values('" & txtReaderNum & "','" & txtName.Text & "','" & txtAge.Text & "','" & txtSex.Text & "','" & txtTime.Text & "')"
MsgBox "保存成功！", vbInformation + vbOKOnly, "提示"
If ExecuteSql(strSql) = True Then
MsgBox "插入成功！"
Else
MsgBox "插入失败！"
End If
End Sub
Private Sub cmdReset_Click()
Unload Me
End Sub
数据库的设计如下:
create database Library_Info --建立图书管理系统数据库
use Library_Info --打开数据库
--------------------创建图书信息表单：Book_Info------------------------
create table Book_Info
(
Book_Num int primary key not NULL, --图书编号字段
Book_Name nvarchar(30) not NULL, --图书名字段
Book_Author nvarchar(30) not NULL, --图书作者字段
Book_Publish nvarchar(30) not NULL, --图书出版社字段
Book_PrinDate datetime , --图书出版日期字段
Book_Type nvarchar(20) not NULL, --图书类型字段
Book_Remark text, --图书简介字段
)
-------------------创建读者信息表单：Reader_Info------------------------
create table Reader_Info
(
Rdr_Id int primary key not NULL, --读者编号字段
Rdr_Name nvarchar(12) not NULL, --读者姓名字段
Rdr_Age int not NULL, --读者年龄字段
Rdr_Sex nvarchar(2) not NULL, --读者性别字段
Rdr_MakeCardTime datetime, --读者办证时间
)
-------------------创建借阅信息表单：LendRecorder------------------------
create table LendRecorder
(
LendReder_Num int identity(1,1) primary key , --借阅记录号字段
LendReder_RdrId int constraint ForeignKey_Reader --读者编号字段
Foreign key references Reader_Info(Rdr_Id) not NULL,
LendReder_BkNum int constraint ForeignKey_Book --图书编号字段
Foreign key references Book_Info(Book_Num) not NULL,
LendReder_LendTime datetime , --借书日期字段
LendReder_LendLimit datetime , --应还日期字段
LendReder_ReturnTime datetime , --还书日期字段
LendReder_Arrearage money, --超期罚款字段
)
------------------创建管理员信息表：Usr_Info------------------------------
create table Usr_Info
(
Usr_Id int identity(1,1) primary key , --管理员编号字段
Usr_Name nvarchar(20) not NULL, --管理员姓名字段
Usr_Age int, --管理员年龄字段
Usr_Sex nvarchar(2), --管理员性别字段
Usr_Pwd nvarchar(16) not NULL, --管理员密码字段
)
------------------给系统添加一个超级管理员---------------------------------
insert into Usr_Info values('admin',23,'男','admin') --向管理员信息表中插入记录，超级管理员姓名是：dmin
--密码是：admin
请高手看看,那里的错误,先谢谢了!
