急救啊!在线,多分!数据库连接好了,怎么往其中一个表单写数据?
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn(str_srv As String, str_id As String, str_pwd As String, str_db As String) As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=" & Trim(str_srv) & ";uid=" & Trim(str_id) & ";pwd=" & Trim(str_pwd) & ";database=" & Trim(str_db) & ""
conn.ConnectionTimeout = 50
conn.Open
addFlag = True
Exit Function
strerrmag:
mag = "连接数据库出错!"
addFlag = False
Exit Function
End Function
Private Sub Command1_Click()
OpenCn Text1.Text, Text2.Text, Text3.Text, Text4.Text
End Sub
然后,我有一个表单,我要往里面写数据
id datetimer data
怎么操作啊?