Public Sub sqlcreatetable() Dim oconn As New SqlClient.SqlConnection(My.Settings.p0030ConnectionString) oconn.Open() Dim ocmd As New SqlClient.SqlCommand() ocmd.Connection = oconn ocmd.CommandText = "drop table temp" Try ocmd.ExecuteNonQuery() Catch End Try ocmd.CommandText = "create table temp (f1 int) " ocmd.ExecuteNonQuery() End SubWhy do I get "Could not access table" in the
oBC.WriteToServer(odt)statement?
Public Shared Sub bulkcopy(ByVal odt As DataTable, ByVal cTableName As String) Dim oConn As New SqlClient.SqlConnection(My.Settings.p0030ConnectionString) oConn.Open() oConn.Close() Dim oBC As New SqlClient.SqlBulkCopy(My.Settings.p0030ConnectionString) oBC.DestinationTableName = cTableName oBC.WriteToServer(odt) End Sub Public Shared Sub test() Dim oconn As New SqlClient.SqlConnection(My.Settings.p0030ConnectionString) oconn.Open() Dim oCmd As New SqlClient.SqlCommand("select * from config", oconn) Dim oDa As New SqlClient.SqlDataAdapter(oCmd) Dim oDt As New DataTable oDa.Fill(oDt) oconn.Close() fwDataTable.bulkcopy(oDt, "Temp5") End Sub