سلام دوستان.
ميشه يكي به طور كامل ارتباط با بانك اطلاعاتي در vb رو برام بگه. با استفاده از دستورات SQL مثل select
در ضمن گشتم ولي پيدا نكردم.
Printable View
سلام دوستان.
ميشه يكي به طور كامل ارتباط با بانك اطلاعاتي در vb رو برام بگه. با استفاده از دستورات SQL مثل select
در ضمن گشتم ولي پيدا نكردم.
با سلام
دوست عزیز از دستور select برای گرفتن اطلاعات از جداول بانک اطلاعاتی استفاده میشه نه برای ارتباط با بانک اطلاعاتی.برای ایجاد ارتباط با بانک اطلاعاتی Access از روش زیر می تونی استفاده کنی
1- ابتدا یک adodc به فرمت اضافه کن (برای اینکار اول باید مسیر project/components رو بری و بعد گزینه microsoft adodata controlرو تیک بزنی تا به جعبه ابزارت اضافه بشه بعد به فرمت اضافه کنی)
2- در پنجره properties گزینه خای زیر رو ست می کنی:
connectionstring=Provider=Microsoft.Jet.OLEDB.4.0; Data Source=address bank;Persist Security Info=False
commandtype=2
حالا می تونی با ست کردن datasource یک دیتاگرید اطلاعاتتو توی اون ببینی.
امیدوارم کمکت کرده باشم.
سلام دوست عزيزنقل قول:
ممنون از راهنمايي
اين درست ولي من منظورم از select اين هست كه بتونم با اين دستور توي بانك اطلاعاتي search كنم و اطلاعات به دست آمده را تك تك توي يه چيزي مثل textbox بذارم.يعني مي خواهم يه sql query درست كنم.
اميدوارم كه تونسته باشم منظورم رو رسونده باشم.
سلام
اي بابا يكي جواب ما رو بده!!!
شما بگو مشکلت تو سرچ بوسیله sql کامند هست یا نشون دادن نتایج جستجو تو تکست باکس؟
ولی این رو بگم که در بانکهای اطلاعاتی رابطهای و غیر رابطهای به خاطر وجود رکوردهای تکراری در بانک و عدم توانایی نمایش همه انها درموقع جستجودر یک تکست باکس به شکل کامل و شکیل ، از گریدها استفاده میشه
سلام دوست عزيزنقل قول:
تقريبا مشكلم تو هر 2 تاشون هست
ولي بيشتر تو سرچ بوسيله دستورات sql است. اصلا دستورات وصل شدن به بانك اطلاعاتي و سرچ تو اونو نميدونم.تا اينجاشو فكر كنم درست باشه . نه؟؟؟
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\abolfazl\My Documents\test-vb\project1\db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
cn.Open (connstring)
Set rs = New ADODB.Recordset
اما بعدش چي؟
کد:Adodc4.RecordSource = "select * from mytable where tel='" & txt_search2 & "' "
Set form0.DataGrid1.DataSource = Adodc4
با سلام
دوست عزیز امیدوارم که مشکلتون حل شده باشه
کدی که دوستمون majj نوشتن در صورتی درسته که فیلد شما از نوع تکست باشه اما در مورد نوع عددی از کد زیر استفاده کنسد
Adodc4.RecordSource = "select * from mytable where tel='" & txt_search2
Set form0.DataGrid1.DataSource = Adodc4
سلام
آقا مشكل ما هنوز حل نشده!
خواهشا اگه ميشه يكي از اول روش جستجو در ديتابيس رو با استفاده از دستورات sqlquery و ..... به ما ياد بده ممنون ميشم.
با سلام
برای search کردن متن string از کد زیر استفاده کنید
"select * from tblcustomer where name='" & text1.text & "'"
برای search عدد از کد زیر استفاده کنید.
"select * from tblcustomer where name=" & text1.text