请高手看一段代码,我是刚学的菜鸟!
Private cs As ADODB.Connection
Private rstu As ADODB.Recordset
Private rs As ADODB.Recordset
Option Explicit
Private Sub add_Click()
Text1(0).Text = " "
Text1(1).Text = " "
Text1(2).Text = " "
Text1(3).Text = " "
Text1(4).Text = " "
Text1(5).Text = " "
Text1(6).Text = " "
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub save_Click()
Dim txtsql As String
Dim i As Integer
For i = 0 To 6
If Trim(Text1(i).Text = " ") Then
MsgBox "请输入完整的信息! ", vbOKOnly + vbQuestion, "提示 "
Text1(0).SetFocus
Text1(0).TabIndex = 1
Text1(1).TabIndex = 2
Text1(2).TabIndex = 3
Text1(3).TabIndex = 4
Text1(5).TabIndex = 5
Text1(6).TabIndex = 6
Exit Sub
End If
Next
Set rstu = New ADODB.Recordset
rstu.CursorLocation = adUseClient
rstu.Open "select * from 学生表 ", cs, adOpenKeyset, adLockOptimistic
rstu.MoveFirst
Do While rstu.Fields(0) <> Trim(Text1(0).Text) & rstu.EOF = False
rs.MoveNext
Loop
If rstu.Fields(0) = Trim(Text1(0).Text) Then
MsgBox "数据库已经存在编号为: " & Text1(0).Text & "的学生!请重新输入! ", vbOKOnly, "警告 "
Text1(0).SetFocus
Else
rstu.AddNew
rstu.Fields(0) = Text1(0).Text
rstu.Fields(1) = Text1(1).Text
rstu.Fields(2) = Text1(2).Text
rstu.Fields(3) = Text1(3).Text
rstu.Fields(4) = Text1(4).Text
rstu.Fields(5) = Text1(5).Text
rstu.Fields(6) = Text1(6).Text
rstu.Update
MsgBox "员工信息已经成功地加入到数据库! ", vbOKOnly + vbInformation, "提示 "
rstu.Update
Text1(0).SetFocus
Text1(0).Text = " "
Text1(1).Text = " "
Text1(2).Text = " "
Text1(3).Text = " "
Text1(4).Text = " "
Text1(5).Text = " "
Text1(6).Text = " "
End If
End Sub
运行的时候打开数据库那一段出现 "连接无法用于执行此造作,在此上下文中她可能已被关闭或无效 "为什么啊????请高手指教一下,谢谢了!
[解决办法]
cs在哪打开的？
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
最新版本：20070212
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
[解决办法]
连接没打开，窗体里可以在Form_Load事件中打开连接后再进行其他的数据库操作
[解决办法]
cs ( ADODB.Connection)没有建立连接
[解决办法]
定义了cs，但没有连接数据库啊。
Public Function GetDataBaseConnection(ConStr As String) As ADODB.Connection
'测试连接,成功返回连接
On Error Resume Next: err.Clear
Set cs= New ADODB.Connection
If ConStr <> " " Then
cs.Open ConStr
err.Clear
On Error GoTo 0
End If
Set GetDataBaseConnection = cs
End Function
'连接字符串
1:Oracle
Provider=OraOLEDB.Oracle.1;Data Source=PDBSVR_GEOPRJSVR;User ID=upmis;Password=upmis;Persist Security Info=True
2:SQL Server
Provider=sqloledb;Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=
3:Access
Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info =False;Data Source= "c:\dd "
