问个比较弱智的问题，入门级

[fancydong]

连接一个SQL2000的数据库
做一个界面向数据库固定表中插入数据

[fancydong2]

没搞定

[王二.麻子]

做呗

做了就知道了

[starlwg]

1 连接上SQL2000
2 写 插入数据 代码
3 O K

[fancydong]

提示下

[hp1894]

用ado连接数据库用inser插入数据

[fancydong]

添加了一个模块
Public cn As New ADODB.Connection '连接
Public rs As New ADODB.Recordset '记录集

Public Sub OpenConn() '连接数据库
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "driver={SQL Server};server=zhangd;uid=sa;pwd=;database=学生成绩管理"
End Sub

窗体中怎么调用？

[fancydong]

有例子么

[贝隆]

http://download.csdn.net/source/1627068

[fancydong]

TO：VERON_04
下不了，提示分不够

[fancydong]

能发邮箱[e-mail]

多谢

[fancydong]

窗体里的东东怎么写

[king06]

不就要个例子么。。。
模块: (工程-->引用-->Microsoft ActiveX Data Objects 2.x Library)
Option Explicit
Public Cn As New ADODB.Connection

Public Sub Main()
Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;" _
& "Initial Catalog= test;Data Source= .;"
If Cn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cn.Close
Cn.Open

Form1.Show
End Sub

窗体:
Private Sub Command1_Click()
Dim Rs As ADODB.Recordset
Rs.Open "select * from table1 ", Cn, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs.Fields("编号") = Text1.Text
Rs.Fields("姓名") = Text2.Text
Rs.Update
Rs.Close: Set Rs = Nothing

'or
'Cn.Execute "insert into table1(编号,姓名) values('" & Text1.Text & "','" & Text2.Text & "') "
End Sub

[lihuisys2000]

做好模块后，需要调用时使用CALL，或直接使用其定义的名称。

[游子]

。。。。如果还没有搞定。。。说明你真的要例子。。398706948

[咸清]

用VB向导自己生成一个例子看看

[jhjinpei]

我是冲着60分进来的。发现还没结贴。

[啊的发哦]

不想看书，又不想查资料，理这种人干啥

[杀神者]

[Quote=引用 5 楼 fancydong 的回复:]
添加了一个模块
Public cn As New ADODB.Connection '连接
Public rs As New ADODB.Recordset '记录集

Public Sub OpenConn() '连接数据库
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "drive……
[/Quote]
call openconn'同志要多学习

[熊孩子开学喽]

参考一下VB连接数据库的例子吧,MSDN中很详细了.
添加删除查询修改数据,这些都是数据库操作必须掌握的基本技能.