ورود

View Full Version : تعرف پارامتر sql در Vb6



milad-fa
جمعه 05 شهریور 1389, 23:16 عصر
با سلام خدمت تمامی دوستان
من تو vb6 در حالیکه بانکم access هست با دستورات زیر پارامتر برای دستورات sql تعریف می کنم و insert می کنم و کاملا درست جواب میده
:

Public Conn As ADODB.Connection
Public Cmd As ADODB.Command
Set Cmd = New ADODB.Command
Set Rst = New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Provider = "Microsoft.JET.OLEDB.4.0"
Conn.ConnectionString = App.Path + "\Data Base\Test.mdb"
Conn.CursorLocation = adUseClient
Conn.Open
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
Cmd.CommandText = "Insert Into tblTest (FName)Values(@FName)"
Cmd.Parameters.Refresh
Cmd.Parameters.Item(0).Value = FName.Text
Rst.CursorType = adOpenKeyset
Rst.CursorLocation = adUseClient
Set Rst = Cmd.Execute

ولی وقتی بانکم رو تو sql server 2000 ایمپورت میکنم با اینکه conn.open رو هم تغییر میدم تو تعریف پارامتر بهم این error میده :

Run-time error '3265':
Item cannot be found in the collection corresponding to the requested name or ordinal.

در ضمن کاملاً با بانک ارتباط برقرار می کنه فقط خطاش تو تعریف پارامتر هست.
آیا وقتی بانکم رو sql میکنم باید کار خاص دیگه ای انجام بدم که وقتی بانک access هست لازم نیست؟
دوستان لطفاً راهنماییم کنید.
تشکر ...

saeed_r67
شنبه 06 شهریور 1389, 02:12 صبح
دوست عزیز شما می تونید از دستور زیر استفاده کنید.
(مسیر دیتابیس)con.open
Con.Execute(inser into
con.close
-------------------------------------
موفق باشی

milad-fa
شنبه 06 شهریور 1389, 09:43 صبح
مشکل من تو دسنور insert ه sql نیست،با text1.text& می تونم دستور Insert رو کاملاً صحیح اجرا کنم جواب هم میده اما وقتی داده ها زیاد بشه نمیشه از این روش استفاده کرد حتماً باید پارامتر تعریف کرد.
مشکل من تو تعریف پارامتره.فکر کنم مربوط به کدهای vb باشه.
چطوری وقتی بانکم sql هست تو vb6 برای اجرای دستورات sql پارامتر تعریف کنم؟
دوستان لطفاً راهنمایی کنید.

milad-fa
شنبه 06 شهریور 1389, 11:03 صبح
اساتید محترم لطفاً راهنمایی کنید.
اگه سوالم واضح نیست بگید بیشتر توضیح بدم.

milad-fa
یک شنبه 07 شهریور 1389, 01:08 صبح
دوستان اگه بلدید لطفتون رو دریق نکنید.
اگه سوال یا مشکلی هم دارید بگید در حد توانم سعی می کنم کمک کنم.