من این کد را نوشتم ولی خطایی که ضمیمه گذاشتم را میده
اینم کد
کد PHP:
[QUOTE]Private Sub CommandButton4_Click()
Dim cnn As New ADODB.Connection
Dim rss As New ADODB.Recordset
Dim strSQL As String
Dim fpath As String
Dim str1 As String
Dim txtb1 As String
Set cnn = New ADODB.Connection
Set rss = New ADODB.Recordset
fpath = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name
str1 = "provider=microsoft.ace.12.0;data source=""" & fpath & """;extended properties=""excel 12.0 xlm;HDR=YES"";"
strSQL = " select distinct [sn] from [GM$] order by [txtb1]"
cnn.Open str1
ComboBox3.Clear
rss.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rss.********unt > 0 Then
Do While Not rss.EOF
ComboBox3.AddItem rss.Fields(0)
rss.MoveNext
Loop
Else: MsgBox "ÓÇÈÞå Çí ÈÑÇí Çíä ˜ÇáÇ æÌæÏ äÏÇÑÏ!", vbCritical + vbOKOnly
End If
End Sub[/QUOTE]
علاقه مندی ها (Bookmarks)