DataSet 更新到数据库

最新推荐文章于 2022-09-22 19:22:24 发布

原创最新推荐文章于 2022-09-22 19:22:24 发布 · 650 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#SqlCommandBuilder #dataset #数据库

vb.net 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了使用ASP.NET页面和ADO.NET组件实现从远程服务获取数据，并将其填充到数据库表中，包括错误处理和数据库连接管理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports System.Web.Services
Imports hhha
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration

Partial Class test_Default
Inherits System.Web.UI.Page

Public Function WriteDataSet() As Boolean
Dim ws As New hhha.myWebService()
Dim ds As DataSet
ds = ws.GetData()
Dim con As SqlConnection
'gv.DataSource = ds.Tables(0)
'gv.DataBind()
Try
Response.Write("333")
Dim constring As String
Response.Write("555")

constring = WebConfigurationManager.ConnectionStrings("johndbtest").ConnectionString
' constring = "DataSource=localhost;Initial Catalog=johndbtest;user id=JohnSmith ;password=yao123"
' Response.Write(constring)
Dim ds1 As DataSet = New DataSet
con = New SqlConnection(constring)
' Dim da As SqlDataAdapter = New SqlDataAdapter("select * from newtable ", con)
Dim command As SqlCommand
con.Open()
command = New SqlCommand("select * from dbo.newtable ", con)
Dim da As SqlDataAdapter = New SqlDataAdapter(command)
Dim scb As SqlCommandBuilder = New SqlCommandBuilder(da)
da.Fill(ds1, "ntb1")
For Each row In ds.Tables(0).Rows
Dim nrow As DataRow
nrow = ds1.Tables(0).NewRow
nrow(0) = row(0)
nrow(1) = row(1)
nrow(2) = row(2)
nrow(3) = row(3)
nrow(4) = row(4)
nrow(5) = row(5)
nrow(6) = row(6)
nrow(7) = row(7)
ds1.Tables(0).Rows.Add(nrow)
Next
da.Update(ds1.Tables(0))

Catch e As Exception
Response.Write(e.Message)
Finally
con.Close()
'con.Dispose()
End Try
' Response.Write(ds.Tables(0).Rows(0).Item(1))
Return True
End Function

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
WriteDataSet()
End Sub
End Class