Open RecordSet...

mercredi 8 avril 2015

Hi All,

May i know How to open a Record Set For the combo-box?

My Original Code as follows



Dim conn As New ADODB.Connection

Dim objMyRecordset As New ADODB.Recordset



Dim strSQL As String



Set conn = New ADODB.Connection

conn.ConnectionString = "Provider = SQLOLEDB; Data Source=SDSACCOUNT; Initial Catalog= SSPLCO; user ID=sa; Password=sa;"

conn.Open

'Do your query



strSQL = "Select ITEMNO FROM ICITEM;"



Set objMyRecordset.ActiveConnection = conn

objMyRecordset.Open strSQL

Me.Combo4.RowSourceType = "Table/Query"





After i use this code nothing come out on my combo-box...



Thanks in advance!!!

Open RecordSet...

0 commentaires:

Enregistrer un commentaire

Labels