下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
While dbrRows.Read
strInsert = "INSERT INTO `" & conData.Database & "`.`" & Table & "` ("
Dim intFieldCount As Integer = dbrRows.FieldCount - 1
Dim columns As New List(Of String)
Dim values As New List(Of String)
For intColumns As Integer = 0 To intFieldCount
If Not IsDBNull(dbrRows(intColumns)) Then
columns.Add("`" & dbrRows.GetName(intColumns) & "`")
Dim strType As String = dbrRows.Item(intColumns).GetType.ToString
Select Case strType
Case "System.DateTime" l
Dim dteValue As DateTime = dbrRows.GetMysqLDateTime(intColumns)
Dim strValue As String = "'" & dteValue.Year & "-" & _
dteValue.Month & "-" & _
dteValue.Day & "'"
values.Add(strValue)
Case "System.Boolean"
Dim intBoolean As Integer
If dbrRows.Item(intColumns) = True Then
intBoolean = 1
Else
intBoolean = 0
End If
values.Add(intBoolean.ToString)
Case "System.String"
Dim strValue As String = dbrRows.GetString(intColumns)
strValue = strValue.Replace("'","''")
strValue = strValue.Replace(";","")
values.Add("'" & strValue & "'")
Case "System.Byte[]"
Dim bytBlob(1048576) As Byte
Dim lngFileLength As Long = _
dbrRows.GetBytes(intColumns,bytBlob,1048576)
ReDim Preserve bytBlob(lngFileLength)
values.Add("0x" & ByteArrayToHex(bytBlob))
Case Else 'Otherwise
If IsNumeric(dbrRows.Item(intColumns)) Then
values.Add(dbrRows.Item(intColumns))
Else
values.Add("'" & dbrRows.Item(intColumns).ToString & "'")
End If
End Select
End If
Next
strInsert &= Join(columns.ToArray,",") & ") " & "VALUES ( "
strInsert &= Join(values.ToArray,") & " )"
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
总结
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您喜欢交流学习经验,点击链接加入交流1群:1065694478(已满)交流2群:163560250