Advertisement
Advertisement
| 04.11.2008 at 12:36PM PDT, ID: 23316251 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: |
Protected Sub GetProdImportFields(ByRef dtbl As DataTable)
Dim sqlstring As String = "SELECT SSFieldName FROM ProdImportFields"
Using connection As New SqlConnection(DBconnstr)
connection.Open()
Using command As New SqlCommand(sqlstring, connection)
Using reader As SqlDataReader = command.ExecuteReader()
dtbl.Load(reader, LoadOption.OverwriteChanges)
End Using
End Using
End Using
dtbl.PrimaryKey = New DataColumn() {dtbl.Columns(0)} 'this appears correct
End Sub
|