小弟初学ADO NET请高手指点一二 ------在线等等等
请看下面代码 问题在代码中间
请问 在代码中的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)
谢谢