Wie lange Zeichenfolge auf mehrere Zeilen

Question

Ich verwende diese Insert-Anweisung in meinem Code brechen in vba excel, aber ich bin nicht in der Lage es in mehr als eine Zeile

SqlQueryString = "Insert into Employee values(" & txtEmployeeNo.Value & " _ 
,'" & txtContractStartDate.Value & "' _ 
,'" & txtSeatNo.Value & "' _ 
,'" & txtFloor.Value & "','" & txtLeaves.Value & "')" 

Es gibt zu brechen Fehler " Erwartetes Ende der Aussage ". PLZ Hilfe.

Answer 1

Sie können das VB-Zeilenfortsetzungszeichen nicht innerhalb einer Zeichenfolge verwenden.

SqlQueryString = "Insert into Employee values(" & txtEmployeeNo.Value & _ 
"','" & txtContractStartDate.Value & _ 
"','" & txtSeatNo.Value & _ 
"','" & txtFloor.Value & "','" & txtLeaves.Value & "')" 

Answer 2

Wenn die lange Zeichenfolge auf mehrere Zeilen verwechselt Sie. Dann kannst du mz-tools addin installieren, das eine Freeware ist und das Dienstprogramm hat, das die Zeile für dich aufteilt.

Download Mz-tools

Wenn Ihr String wie sieht unter

SqlQueryString = "Insert into Employee values(" & txtEmployeeNo.Value & "','" & txtContractStartDate.Value & "','" & txtSeatNo.Value & "','" & txtFloor.Value & "','" & txtLeaves.Value & "')" 

einfach die Zeichenfolge auswählen> Rechtsklick auf VBA IDE> Wählen Sie MZ-Tools> Split Linien

Answer 3

Sie kann einfach Ihre Zeichenfolge in mehreren Schritten erstellen, ein wenig redundant, aber es hält den Code lesbar und behält Verstand währenddessen Debuggen oder Bearbeiten

SqlQueryString = "Insert into Employee values(" 
SqlQueryString = SqlQueryString & txtEmployeeNo.Value & " ," 
SqlQueryString = SqlQueryString & " '" & txtEmployeeNo.Value & "'," 
SqlQueryString = SqlQueryString & " '" & txtContractStartDate.Value & "'," 
SqlQueryString = SqlQueryString & " '" & txtSeatNo.Value & "'," 
SqlQueryString = SqlQueryString & " '" & txtContractStartDate.Value & "'," 
SqlQueryString = SqlQueryString & " '" & txtSeatNo.Value & "'," 
SqlQueryString = SqlQueryString & " '" & txtFloor.Value & "'," 
SqlQueryString = SqlQueryString & " '" & txtLeaves.Value & "')"