b3st.programmer
پنج شنبه 17 اردیبهشت 1388, 20:49 عصر
دوستان سلام
من يه سوالي داشتم...من قبلا يه برنامه اي نوشته بودم... با زبان VB6 و بانک اطلاعاتي sql server 2000 ،کاملا هم درست کار مي کرد.حالا به دلايلي مي خواهم با بانک اطلاعاتي sql server 2008 کار کنه...
از زماني که sql server 2008 رو در سيستم ام نصب کردم و بانک رو از اول ساختم (چون انگار بانک هاي ساخته شده با sql server 2000 رو attach نميکنه...يعني انگار ساپورت نمي کنه) با تمام stored procedure ،
حالا که برنامه رو اجرا مي کنم اين ارور رو ميده..:عصبانی++::متفکر:مثلا برای افزودن شهر به بانکم..
http://i43.tinypic.com/ixti0p.jpg
http://i42.tinypic.com/s6nbtf.jpg
http://i40.tinypic.com/9sgv10.jpg
حالا موندم ايرادش از چیه و تو ويبي بايد چيزي اضافه کنم..:متفکر:
sp هام هم درسته تو بانک چک کردم درست کار می کنه...
در ضمن یه سوال هم داشتم(چون تازه با sql server 2008 شروع به کار کردم ):
طرز کانکت کردن برنامه به sql server 2008 با sql server 2000 که فرقي نداره؟ من از اين ماژول استفاده مي کنم.
Public db As ADODB.Connection
Public dbCmd As ADODB.Command
Public rs As ADODB.Recordset
Public su As String 'براي نگه داشتن نام کاربري'
Sub main()
Set db = New ADODB.Connection
Set dbCmd = New ADODB.Command
Set rs = New ADODB.Recordset
db.Open "Provider=SQLOLEDB.1; Security=SSPI;Persist Security Info=False;Initial Catalog=Ajans"
Set dbCmd.ActiveConnection = dbIntegrated
dbCmd.CommandType = adCmdText
End Sub
Public Sub openRs(ByRef rs As ADODB.Recordset, ByVal str As String)
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open str, db, adOpenDynamic, adLockOptimistic
End Sub
اگه خوب توضیح ندادن بگید..بیشتر توضیح بدم.
ممنون ميشم اگه بنده رو ياري کنيد...:لبخندساده:
من يه سوالي داشتم...من قبلا يه برنامه اي نوشته بودم... با زبان VB6 و بانک اطلاعاتي sql server 2000 ،کاملا هم درست کار مي کرد.حالا به دلايلي مي خواهم با بانک اطلاعاتي sql server 2008 کار کنه...
از زماني که sql server 2008 رو در سيستم ام نصب کردم و بانک رو از اول ساختم (چون انگار بانک هاي ساخته شده با sql server 2000 رو attach نميکنه...يعني انگار ساپورت نمي کنه) با تمام stored procedure ،
حالا که برنامه رو اجرا مي کنم اين ارور رو ميده..:عصبانی++::متفکر:مثلا برای افزودن شهر به بانکم..
http://i43.tinypic.com/ixti0p.jpg
http://i42.tinypic.com/s6nbtf.jpg
http://i40.tinypic.com/9sgv10.jpg
حالا موندم ايرادش از چیه و تو ويبي بايد چيزي اضافه کنم..:متفکر:
sp هام هم درسته تو بانک چک کردم درست کار می کنه...
در ضمن یه سوال هم داشتم(چون تازه با sql server 2008 شروع به کار کردم ):
طرز کانکت کردن برنامه به sql server 2008 با sql server 2000 که فرقي نداره؟ من از اين ماژول استفاده مي کنم.
Public db As ADODB.Connection
Public dbCmd As ADODB.Command
Public rs As ADODB.Recordset
Public su As String 'براي نگه داشتن نام کاربري'
Sub main()
Set db = New ADODB.Connection
Set dbCmd = New ADODB.Command
Set rs = New ADODB.Recordset
db.Open "Provider=SQLOLEDB.1; Security=SSPI;Persist Security Info=False;Initial Catalog=Ajans"
Set dbCmd.ActiveConnection = dbIntegrated
dbCmd.CommandType = adCmdText
End Sub
Public Sub openRs(ByRef rs As ADODB.Recordset, ByVal str As String)
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open str, db, adOpenDynamic, adLockOptimistic
End Sub
اگه خوب توضیح ندادن بگید..بیشتر توضیح بدم.
ممنون ميشم اگه بنده رو ياري کنيد...:لبخندساده: