mah6951
پنج شنبه 27 خرداد 1389, 21:58 عصر
سلام
اين كد مشاهده كنيد
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sjam As Integer
Dim sql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\tirche.mdb"
rst.Open "kharid", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.Close
sql = "select sum(jam) as sjam from kharid where 'cod=5'"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
چه دستور اينجا بايد نوشت تا sql اجرا شود ؟
Text19 = sjam
با تشكر
اين كد مشاهده كنيد
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sjam As Integer
Dim sql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\tirche.mdb"
rst.Open "kharid", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst.Close
sql = "select sum(jam) as sjam from kharid where 'cod=5'"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
چه دستور اينجا بايد نوشت تا sql اجرا شود ؟
Text19 = sjam
با تشكر