急救啊!在线,多分!数据库连接好了,怎么往其中一个表单写数据?

Question

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As BooleanPublic 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 FunctionPrivate Sub Command1_Click()
OpenCn Text1.Text, Text2.Text, Text3.Text, Text4.Text
End Sub然后,我有一个表单,我要往里面写数据
id   datetimer  data怎么操作啊?

Answer 1

呵呵，已经搞定了!
现在做搜索数据了!
怎么样按照ID来读后面的DATA呢?

Answer 2

接分Set rs = New ADODB.Recordset
sql="select * from 表 where id=你要找的值"
rs.open sql,conn,adOpenKeyset,adLockReadOnly, adCmdText读取rs的返回值即可

Answer 3

Set rs = New ADODB.Recordset
sql="select * from 表 where id=你要找的值"
rs.open sql,conn,adOpenKeyset,adLockReadOnly, adCmdText
    rs.Fields(0).Value = ID
    rs.Fields(1).Value = Name
    rs.Fields(2).Value = Desc

Answer 4

来晚了，楼上的都解决了
可以有SQL语句，insert into ...也可以向 ZOU_SEAFAREA(国际海员)那样

Answer 5

rs.addnew
rs(字段)=你的值
rs.update或用insert into