YouFec
YouFec

Reputation: 13

Adding quotes into a sql query with Vba code

I can recover data from my database using vba, but I have to add quotes on the result of column ("value1", "Value2", "Value3" etc) But I do not know how to add quotes inside the SQL query, when using " it's wrong the request. I am used to do this kind of concat in SQL but in VBA I am not able to do it. Thanks for your help.

Sub CopyDataFromDB()
Dim DKCon As ADODB.Connection
Dim DKData As ADODB.Recordset
Dim iCols As Integer
Set DKCon = New ADODB.Connection
Set DKData = New ADODB.Recordset


DKCon.ConnectionString = SqlProvider
DKCon.Open

With DKData
        .ActiveConnection = DKCon
        .Source = "select sitsmhlccd from sitsmemoh"
        .LockType = adLockReadOnly
        .CursorType = adOpenForwardOnly
        .Open
End With

Worksheets.Add
ActiveSheet.Range("A2").CopyFromRecordset DKData
DKData.Close
DKCon.Close

Upvotes: 0

Views: 333

Answers (1)

Vasya
Vasya

Reputation: 469

When you use VBA, you need to double double-quote if you want to use it inside a string:

"select '""'+ sitsmhlccd +'""' from sitsmemoh"

Upvotes: 1

Related Questions