• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 2.88 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: ارتباط Sql با VB6
حالت موضوعی
#1
-١ یک کنترل 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 میشه روی رکوردها حرکت کرد و متن فیلدها اتوماتیک عوض میشه
منبع :
میکرو وی بی
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#2
(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 سایتم تست کردم و جواب نداد

باید چکار کرد
 
پاسخ
#3
سلام
عذر میخوام دیر جواب میدم واقعا گیرم بد جور
ببین از این کد استفاده کن
کد:
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
رو به رو dbname ادرسو بده
اگر تو شبکه باشه باید ایپیت ولید باشه
برای اینکه کلا از sql بدونی و بفهمی اینجا رو مطالعه کن
http://www.forum.foxworld.ir/showthread.php?t=74&page=1
سوالی داشتی در خدمتم
به امید دیدار
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Photo ارتباط با دیتا ریپورت بدون دیتا بیس aghamali 0 3,119 12-02-2013، 03:25 PM
آخرین ارسال: aghamali

پرش به انجمن:


Browsing: 1 مهمان