hi
I have a combo box that pulls the data from a look up table present in the SQL server.
I am getting this weird error
"string or binary data would be truncated"
This only happens when the drop down list has strings like
"voice_and_data"
"handset_in_closet"
Can some one please help
The code is
Private Sub load_cmbMbl()
Dim conSQL As ADODB.Connection
'Sets connection
Set conSQL = New ADODB.Connection
Dim strSQLServer As String
Dim strSQLDatabaseToOpen As String
Dim strConnectString As String
Dim strSQL2 As String
strSQLServer = "sfdaqsql1"
strSQLDatabaseToOpen = "techlog_copy"
strConnectString = "Provider=sqloledb;" & _
"Integrated Security=SSPI;" & _
"Data Source=" & strSQLServer & ";" & _
"Initial Catalog=" & strSQLDatabaseToOpen & ";"
conSQL.Open (strConnectString)
cmbMbl.Clear
Dim rsRecords As ADODB.Recordset
Set rsRecords = New ADODB.Recordset
strSQL2 = "SELECT mobile_test FROM Mobile_Test_Lookup"
rsRecords.Open strSQL2, conSQL
If Not (rsRecords.BOF And rsRecords.EOF) Then
rsRecords.MoveFirst
Do
cmbMbl.AddItem rsRecords.Fields
rsRecords.MoveNext
Loop Until rsRecords.EOF
End If
rsRecords.Close
Set rsRecords = Nothing
conSQL.Close
End Sub
Please help
