VB.Net代码中的SQL查询"INSERT INTO". [英] SQL Query "INSERT INTO".. within VB.Net code..
本文介绍了VB.Net代码中的SQL查询"INSERT INTO".的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
Dim strInsert = " ' & Nummer&"'，'& Relatiesoort&'，'"& Naam &'，'"& Voornaam&'，'& Adres&"'，'&邮编&"，'& Woonplaats&"'，'&Telefoon &'，'"& Mobiel&'，'"&传真&'，'"& E-mail&'，'"&网站&))
选择 案例 UCase(strWaarde( 0 ) )' (0)= het gedeelte voor:" zh(1)komt daarna
案例 " ，" ，" 请立即阅读.
案例 "
strNaam = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbTab)
案例 " ' Voornaam
strVoornaam = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
案例 " ' Telefoon op het werk
如果 blnDubbel = 错误 然后
strTelWerk = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbTab)
blnDubbel = 真
结束 如果
案例 " ' Telefoon thuis
strTelThuis = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
案例 " ' 移动电话机
strMobiel = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbTab)
案例 " ' Overige nummers
strOverig = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
案例 " ' 传真操作异常
strFaxWerk = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbTab)
案例 " ' 传真机
strFaxThuis = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
案例 " ' Adres
strAdres = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
案例 " ' 网站Thuis
strUrlThuis = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbTab)
案例 " ' 网站Werk
strUrlWerk = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
案例 " ' 电子邮件地址
strMail = strWaarde( 1 )
sbBuilder.Append(strWaarde( 1 ))
案例 其他
sbBuilder.Append(strWaarde( 1 )& vbCrLf)
结束 选择
循环
objReader.Close()
frmVCard.txtVCard.Text = sbBuilder.ToString
捕获，例如 As 异常
MsgBox(例如消息，MsgBoxStyle.Exclamation，" )
最后
objReader.Dispose()
sbBuilder = 没什么
结束 尝试
结束 如果
结束 子
我的表名= Relaties
字段或:
B22 _... etc
的一切
我要填写的是:与我的应用程序连接的数据库.
我插入的所有内容都必须是数据库上的新记录.
我希望现在可以了..谢谢，我将自己尝试一下.
解决方案
基本知识:创建存储过程 [命令和参数 [ SqlParameterCollection.AddWithValue方法 [ INSERT INTO 关系(B22_relnr，B22_rel_soort，B22_naam，B22_voornaam_etc，B22_adres， B22_postcode，B22_plaats，B22_telefoon1，B22_mobielnr，B22_faxnummer，B22_email，B22_www_adres，B22_zoeknaam) 值( @ relnr ， @ rel_soort ， @ naam ， @ voornaam_etc ， @ adres ， @邮政编码， @ plaats ， @ telefoon1 ， @ mobielnr ， @ faxnummer ， @电子邮件， @ www_adres ， @ zoeknaam )
在SELECT... CASE... END SELECT之后，按照第二个链接中所示构建命令.
[/EDIT]
' INSERT& ;值: strInsert =将关系插入(B22_relnr，B22_rel_soort，B22_naam，B22_voornaam_etc， & "B22_adres，B22_postcode，B22_plaats，B22_telefoon1，B22_telefoon2，" & "B22_mobielnr，B22_faxnummer，B22_email，B22_www_adres，B22_zoeknaam)" & "VALUES("& intNummer&，' & strSoort&" ' ，' " & strNaam _ & " ，' & StrVoornaam& " ，' &战略邮编strPlaats _ & " ，' &邮编" ，' & StrPlaats& " ，' & strTelWerk _ & " ，' & StrutsThuis& " ，' & StrMobiel& " ，' & strFaxWerk _ & " ，' &邮件& " ，' & StrUrlWerk& " ，' & StrZoek& " )"
Dim strInsert = "INSERT INTO Relaties (B22_relnr, B22_rel_soort, B22_naam, B22_voornaam_etc, B22_adres, B22_postcode, B22_plaats, B22_telefoon1, B22_mobielnr, B22_faxnummer, B22_email, B22_www_adres, B22_zoeknaam) _"
('" & Nummer & "', '" & Relatiesoort & "', '" & Naam & "', '" & Voornaam & "', '" & Adres & "', '" & Postcode & "', '" & Woonplaats & "', '" & Telefoon & "', '" & Mobiel & "', '" & Fax & "', '" & E-mail & "', '" & Website & "')"
Select Case UCase(strWaarde(0)) '(0) = het gedeelte voor ":" en (1) komt daarna
Case "BEGIN", "VERSION", "END" 'De waarden die niet worden getoond.
Case "N"
strNaam = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbTab)
Case "FN" 'Voornaam
strVoornaam = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbCrLf)
Case "TEL;WORK;VOICE" 'Telefoon op het werk
If blnDubbel = False Then
strTelWerk = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbTab)
blnDubbel = True
End If
Case "TEL;HOME;VOICE" 'Telefoon thuis
strTelThuis = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbCrLf)
Case "TEL;CELL;VOICE" 'Mobiele telefoon
strMobiel = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbTab)
Case "TEL;VOICE" 'Overige nummers
strOverig = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbCrLf)
Case "TEL;WORK;FAX" 'Fax op het werk
strFaxWerk = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbTab)
Case "TEL;FAX" 'Fax thuis
strFaxThuis = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbCrLf)
Case "ADR;WORK;PREF:" 'Adres
strAdres = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbCrLf)
Case "URL;HOME:" 'Website Thuis
strUrlThuis = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbTab)
Case "URL;WORK:" 'Website Werk
strUrlWerk = strWaarde(1)
sbBuilder.Append(strWaarde(1) & vbCrLf)
Case "EMAIL;PREF;INTERNET:" 'Email adres
strMail = strWaarde(1)
sbBuilder.Append(strWaarde(1))
Case Else
sbBuilder.Append(strWaarde(1) & vbCrLf)
End Select
Loop
objReader.Close()
frmVCard.txtVCard.Text = sbBuilder.ToString
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fout...")
Finally
objReader.Dispose()
sbBuilder = Nothing
End Try
End If
End Sub
My Tablename = Relaties
Fields or:
everything with B22_...etc
What i want to fill is: the database, connected with my app.
everything i have insert, must be a new record on the database..
i hope it''s clear now.. thanks, and i wil try by myself.
解决方案
Basic knowledge: INSERT[^] and Create Stored Procedures[^]
Upgrade your question and i''ll update my answer ;)
[EDIT]
First of all, read this:
Commands and parameters[^]
SqlParameterCollection.AddWithValue Method [^]
Then, replace your query with:
INSERT INTO Relaties (B22_relnr, B22_rel_soort, B22_naam, B22_voornaam_etc, B22_adres, B22_postcode, B22_plaats, B22_telefoon1, B22_mobielnr, B22_faxnummer, B22_email, B22_www_adres, B22_zoeknaam) VALUES(@relnr, @rel_soort, @naam, @voornaam_etc, @adres, @postcode, @plaats, @telefoon1, @mobielnr, @faxnummer, @email, @www_adres, @zoeknaam)
AfterSELECT... CASE... END SELECTbuild your command as is shown in the second links.
[/EDIT]
'INSERT & VALUES lijst: strInsert = "INSERT INTO Relaties (B22_relnr, B22_rel_soort, B22_naam, B22_voornaam_etc, " _ & "B22_adres, B22_postcode, B22_plaats, B22_telefoon1, B22_telefoon2, " _ & "B22_mobielnr, B22_faxnummer, B22_email, B22_www_adres, B22_zoeknaam) " _ & " VALUES (" & intNummer & ", '" & strSoort & "', '" & strNaam _ & "', '" & strVoornaam & "', '" & strAdres & strPostcode & strPlaats _ & "', '" & strPostcode & "', '" & strPlaats & "', '" & strTelWerk _ & "', '" & strTelThuis & "', '" & strMobiel & "', '" & strFaxWerk _ & "', '" & strMail & "', '" & strUrlWerk & "', '" & strZoek & "' )"
这篇关于VB.Net代码中的SQL查询"INSERT INTO".的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
