radubalmus
Programmer
Hy I get this error connecting to my sql database "Run-time error '-2147217900 (80040e12): [Microsoft][ODBC Sql Server Driver][Sql Server]The text, ntext, and images data types cannot be compared or sorted, except using IS NULL or LIKE operator"
This is the code:
Any ideas pls cause i run out
(.
thanks
There are simple solutions for almost every problem! The hard part is to see them!!!!
This is the code:
Code:
Public Sub initPCR()
Dim ordersheet1 As Worksheet
Dim query As String
Dim pcrNr, paragraphId, samples, partsvizual, partsdimensional, partstests As Integer
Dim table, partname, partnoindex, editieData, desen, pozitie, descriere, mijlocControl, observatii, test, caract, SPCs As String
Dim partno As String
Dim mesaj As Single
Set ordersheet1 = Application.ActiveWorkbook.Worksheets("New Incoming Test Order")
'get entries
table = "PCR"
If ordersheet1.Range("C9").Text <> "" Then
partno = ordersheet1.Range("C9").Text
'Assemble the query
query = "SELECT * FROM " + table + " WHERE partno=" + CStr(partno)
'Get results
Dim MyRecordset As ADODB.Recordset
Dim MyConnection As ADODB.Connection
Dim count As Integer
Set MyRecordset = Module8.selectFromDB(query)
MyRecordset.MoveFirst
ordersheet1.Range("E9") = MyRecordset.Fields(0).Value
ordersheet1.Range("H9") = MyRecordset.Fields(1).Value
ordersheet1.Range("K5") = MyRecordset.Fields(2).Value
ordersheet1.Range("K7") = MyRecordset.Fields(3).Value
ordersheet1.Range("K9") = MyRecordset.Fields(4).Value
ordersheet1.Range("K11") = MyRecordset.Fields(5).Value
ordersheet1.Range("B11") = MyRecordset.Fields(6).Value
ordersheet1.Range("D11") = MyRecordset.Fields(7).Value
ordersheet1.Range("H117") = MyRecordset.Fields(8).Value
count = 14
Do Until MyRecordset.EOF
ordersheet1.Cells(count, 1) = MyRecordset.Fields(9).Value
ordersheet1.Cells(count, 2) = MyRecordset.Fields(10).Value
ordersheet1.Cells(count, 3) = MyRecordset.Fields(11).Value
ordersheet1.Cells(count, 4) = MyRecordset.Fields(12).Value
ordersheet1.Cells(count, 8) = MyRecordset.Fields(13).Value
ordersheet1.Cells(count, 9) = MyRecordset.Fields(14).Value
ordersheet1.Cells(count, 10) = MyRecordset.Fields(15).Value
ordersheet1.Cells(count, 12) = MyRecordset.Fields(16).Value
MyRecordset.MoveNext
count = count + 1
Loop
MyRecordset.Close
Set MyRecordset = Nothing
Set MyConnection = Nothing
End If
Exit Sub
Code:
Public Function selectFromDB(query As String) As ADODB.Recordset
Dim MyConnection As ADODB.Connection
Dim MyRecordset As ADODB.Recordset
Dim sqlConnString As String
sqlConnString = getSqlConnString
Set MyConnection = CreateObject("ADODB.Connection")
Set MyRecordset = CreateObject("ADODB.Recordset")
With MyConnection
.ConnectionString = sqlConnString
If Err.Number <> 0 Then
MsgBox "SQLServer Connection could not be established."
Err.Clear
End If
.Open
End With
[COLOR=red]MyRecordset.Open query, MyConnection[/color]
Set selectFromDB = MyRecordset
End Function
Any ideas pls cause i run out
thanks
There are simple solutions for almost every problem! The hard part is to see them!!!!