vb 6.0里有dataset吗？

[lawrendc]

如题,如没有，那请问vb6.0里有没有非连接的数据集呢？？谢谢

[Tiger_Zhao]

Sub Main()
    Dim rs As ADODB.Recordset
    
    Set rs = New Recordset
    rs.Fields.Append "ID", adInteger
    rs.Fields.Append "Name", adVarChar, 10
    rs.Open
    
    rs.AddNew
    rs!ID = 1
    rs!Name = "张三"
    rs.Update
    
    rs.AddNew
    rs!ID = 2
    rs!Name = "李四"
    rs.Update
    
    rs.MoveFirst
    Debug.Print rs.GetString()
End Sub

[lawrendc]

recordset也可以这样创建啊？也就是说，如果我要将一个从数据库查询到的表读取的到一个另外建立的recordset里就可以，是吗？

[lxq19851204]

是这样的.

[lawrendc]

那好，我先试试

[chinaboyzyq]

VB6里没有dataset那是VB.net下的

可以用ADO控件
也可以先引用ADO,再定义ADODB来设置数据集

[king06]

路过,学习

[lawrendc]

那我想再请问下 如何跟据查询的表的字段来更新我创建的recordset里的字段呢？

[chinaboyzyq]

Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connection
    cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            dataBaseName1 & ";Persist Security Info=False"
    cnn1.CursorLocation = adUseClient
    cnn1.Open
    Dim sql As String   
    sql = "SELECT *  FROM ip"'这可以跟条件,现在是所有数据

    rst.Open mySql, cnn, adOpenStatic, adLockPessimistic
    rst.MoveFirst'移动到第一条记录
    rst(0)=50'编辑第一个字段的数据
    rst(1)=35'编辑第二个字段的数据
    rst.update'更新数据库
    rst.close
    cnn.close

[chinaboyzyq]

'修改一个小问题
     Dim rst As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            dataBaseName1 & ";Persist Security Info=False"
    cnn1.CursorLocation = adUseClient
    cnn1.Open
    Dim sql As String   
    sql = "SELECT *  FROM ip"'这可以跟条件,现在是所有数据

    rst.Open sql, cnn, adOpenStatic, adLockPessimistic
    rst.MoveFirst'移动到第一条记录
    rst(0)=50'编辑第一个字段的数据
    rst(1)=35'编辑第二个字段的数据
    rst.update'更新数据库
    rst.close
    cnn.close

[chinaboyzyq]

'修改一个小问题
     Dim rst As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            dataBaseName1 & ";Persist Security Info=False"
    cnn1.CursorLocation = adUseClient
    cnn1.Open
    Dim sql As String   
    sql = "SELECT *  FROM ip"'这可以跟条件,现在是所有数据

    rst.Open sql, cnn, adOpenStatic, adLockPessimistic
    rst.MoveFirst'移动到第一条记录
    rst(0)=50'编辑第一个字段的数据
    rst(1)=35'编辑第二个字段的数据
    rst.update'更新数据库
    rst.close
    cnn.close

[贝隆]

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

[lawrendc]

搞定，谢谢各位! jt