Question

vb问题 看看我的语句哪里不对 急啊 高分





Answer 1

VB:ADODC.recordset.addnew
添加记录为何出现‘91’错误
============================= 你的记录集访问错误，可能是连接字符串（SQL语句）有问题（那就重新检查一下）也可能是Adodc1.Connection没有打开

解决方法：
ConnectionString 属性 (ADO) 包含用来建立到数据源的连接的信息。 说明 使用 ConnectionString 属性，通过传递包含一系列由分号分隔的 argument = value 语句的详细连接字符串可指定数据源。 ADO 支持 ConnectionString 属性的四个参数，任何其他参数将直接传递到提供者而不经过 ADO 处理。ADO 支持的参数如下： Provider=,File Name=,Remote Provider=,Remote Server= 参数 说明 Provider= 指定用来连接的提供者名称。 File Name= 指定包含预先设置连接信息的特定提供者的文件名称（例如，持久数据源对象）。 Remote Provider= 指定打开客户端连接时使用的提供者名称。（仅限于 Remote Data Service）。 Remote Server= 指定打开客户端连接时使用的服务器的路径名称。（仅限于 Remote Data Service）。 设置 ConnectionString 属性并打开 Connection 对象后，提供者可以更改属性的内容，例如通过将 ADO 定义的参数名映射到其提供者等价项来更改属性的内容。 ConnectionString 属性将自动继承用于 Open 方法的 ConnectionString 参数的值，以便在 Open 方法调用期间覆盖当前的 ConnectionString 属性。 由于 File Name 参数使得 ADO 加载所关联的提供者，因此无法传递 Provider 和 File Name 参数。 连接关闭时 ConnectionString 属性为读/写，打开时其属性为只读。 Remote Data Service 用法 在客户端 Connection 对象上使用该服务时，ConnectionString 属性只能包括 Remote Provider 和 Remote Server 参数。当然你可以采用代码方法，那就更灵活了。

Answer 2

1. 首先建立的是数据工程-----省掉引用步骤

2. dim cn As New ADODB.Connection   '数据连接

3. cn.Open "Driver={SQL Server};Server=192.168.1.1;Uid=SA;Pwd=12345678;Database=database_Name"

4. Dim AddNew As New ADODB.Recordset

5. AddNew.Open "select * from datatable", cn, adOpenStatic, adLockOptimistic

6. Adodc1.RecordSource = AddNew

7. if text1.text="" then .......................

Answer 3

好久没搞VB了，不过数据控件的ADDnew，不用事先声明吧。我以前做过学生管理系统，好像没有声明过。

Answer 4

你这是要引用adodb
另外是要连接什么数据库？access 还是 sqlserver
adodc1你得先打开这个结果集，然后才能进行赋值和更新
问题太多了

追问

用的sql 2000

具体该怎么操作呢，谢谢了

追答

'先连接数据库
'uiD为用户名 pwd：密码 SL为数据库实例名 DB为数据库名
'你根据你的数据库修改
dim Conn as New ADODB.Connection

With Conn
If .State = adStateClosed Then strconn = "Provider=SQLOLEDB.1;User ID= uID ; password= pWD ;Data Source=" _ & "SL ;Initial Catalog= DB "
.CursorLocation = adUseClient '设置游标 .Open strconn
End If
End With

'数据库操作示例：
Dim Rs As New ADODB.Recordset
Rs.Open "Select num From sousuo order by num ", Conn, adOpenKeyset, adLockOptimistic, adCmdText

'然后才可以进行addnew操作