小弟初学ADO NET请高手指点一二 ------在线等等等

stephenzhou1234 2003-08-20 10:32:02

请看下面代码问题在代码中间
请问在代码中的DATASET 与实际项目中添加的DATASET数据集如何同步？

Dim connstr
connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\web\empty.mdb"
Dim conn As New OleDb.OleDbConnection()
conn.ConnectionString = connstr
conn.Open()

Dim connstr1
connstr1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\web\unit.mdb"
Dim conn1 As New OleDb.OleDbConnection()
conn1.ConnectionString = connstr1
conn1.Open()

sqlct = "CREATE TABLE unit" & time & "([unit_id] [int] IDENTITY (1000, 1) NOT NULL ,[unit_type_id] [int] NULL,[unit_name] [varchar] (30) NULL ,[project_count] [int] NULL , [apply_count] [int] NULL ,[product_count] [int] NULL)"

Dim adps As New OleDb.OleDbDataAdapter(sqlct, conn1)

Dim ds As DataSet = New DataSet()
Dim dtable As New DataTable("unit")

''create table 在DS里面建表是这样吗如何指定主建？

With dtable.Columns
.Add("unit_id", System.Type.GetType("System.Int32"))
.Add("unit_name", System.Type.GetType("System.String"))
.Add("unit_type_id", System.Type.GetType("System.Int32"))
.Add("project_count", System.Type.GetType("system.Int32"))
.Add("apply_count", System.Type.GetType("system.Int32"))
.Add("product_count", System.Type.GetType("system.Int32"))
End With

dtable.Columns("unit_id").AutoIncrement = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''
ds.Tables.Add(dtable)

sql = "select unit_id,unit_name,unit_type_id from unit"
Dim adp1 As New OleDb.OleDbDataAdapter(sql, conn)
Dim Bld1 As New OleDb.OleDbCommandBuilder(adp1)
adp1.Fill(ds, "unit_id", "unit_name", "unit_type_id")

'''' 如何读出ADP1里面的数据用READER吗？代码该如何写

sql2="select count(project_id) from project where unit_id='"&unit_id&"' and authorize_date like BINARY '2003'"
Dim adp2 As New OleDb.OleDbDataAdapter(sql2, conn)
Dim Bld2 As New OleDb.OleDbCommandBuilder(adp2)
adp2.Fill(ds, "project_count")

sql3="select count(product_id) from product where unit_id='"&unit_id&"' and Publish_Date like BINARY '2003'"
Dim adp3 As New OleDb.OleDbDataAdapter(sql3, conn)
Dim Bld3 As New OleDb.OleDbCommandBuilder(adp3)
adp3.Fill(ds, "apply_count")

sql4="select count(apply_id) from project_apply where unit_id='"&unit_id&"' and apply_date like BINARY '2003'"
Dim adp4 As New OleDb.OleDbDataAdapter(sql4, conn)
Dim Bld4 As New OleDb.OleDbCommandBuilder(adp4)
adp4.Fill(ds, "product_count")

''''如何将DS里面数据更新到物理数据库中？
adps.Update(ds)

谢谢

...全文