+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ارتباط Sql با VB6 (/showthread.php?tid=619)
ارتباط Sql با VB6 - Amin_Mansouri - 08-05-2011
-١ یک کنترل ADO بزارید از Project -> Components -> Micsosoft Ado Data Control 6.0
٢.خاصیت ConnectionString رو تنظیم کنید (ویزارد داره خودش، از لیست بزارید روی Microsoft OEL DB Provider For SQL Server
.٣ در مرحله بعد از قسمت Select the Database on the server نام دیتابیس رو انتخاب کنید، اگر ایراد گرفت قبلش گزینه Use Windows NT Integrated security رو انتخاب کنید
.۴ پنجره ها را OK کنید و خاصیت RecordSourc رو برابر نام یک جدول یا View یا یک دستور Sql قرار بدید
.۵ تکست باکس ها رو بزارید
.۶ خاصیت DataSource هر تکست باکس رو بزارید روی نام ADODC1
.٧ خاصیت DataField هر تکست باکس رو روی فیلد دلخواه بزارید
.٨با خود ADODC میشه روی رکوردها حرکت کرد و متن فیلدها اتوماتیک عوض میشه
منبع :
میکرو وی بی
RE: ارتباط Sql با VB6 - mokh98 - 08-06-2011
(08-05-2011، 09:31 AM)پارسا نوشته: -١ یک کنترل ADO بزارید از Project -> Components -> Micsosoft Ado Data Control 6.0
٢.خاصیت ConnectionString رو تنظیم کنید (ویزارد داره خودش، از لیست بزارید روی Microsoft OEL DB Provider For SQL Server
.٣ در مرحله بعد از قسمت Select the Database on the server نام دیتابیس رو انتخاب کنید، اگر ایراد گرفت قبلش گزینه Use Windows NT Integrated security رو انتخاب کنید
.۴ پنجره ها را OK کنید و خاصیت RecordSourc رو برابر نام یک جدول یا View یا یک دستور Sql قرار بدید
.۵ تکست باکس ها رو بزارید
.۶ خاصیت DataSource هر تکست باکس رو بزارید روی نام ADODC1
.٧ خاصیت DataField هر تکست باکس رو روی فیلد دلخواه بزارید
.٨با خود ADODC میشه روی رکوردها حرکت کرد و متن فیلدها اتوماتیک عوض میشه
منبع :
میکرو وی بی
من برای mysql تست کردم جواب نداد
ولی سرور تو کامپیوتر خودم نبوده
با سرور mysql سایتم تست کردم و جواب نداد
باید چکار کرد
RE: ارتباط Sql با VB6 - Amin_Mansouri - 08-08-2011
سلام
عذر میخوام دیر جواب میدم واقعا گیرم بد جور
ببین از این کد استفاده کن
کد:
Option Explicit
'
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
'
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
'
DBName = App.Path & "/Bank.mdb"
Cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName & ";Persist Security Info=False"
'
DB.Open Cnn
RS.Open StrSQL, DB, adOpenStatic, adLockOptimisticاگر تو شبکه باشه باید ایپیت ولید باشه
برای اینکه کلا از sql بدونی و بفهمی اینجا رو مطالعه کن
http://www.forum.foxworld.ir/showthread.php?t=74&page=1
سوالی داشتی در خدمتم
به امید دیدار