PDA

View Full Version : ارتباط data grid با بانک اطلاعاتی



mosi13
سه شنبه 18 فروردین 1388, 13:43 عصر
سلام این کد رو برای ارتباط و نمایش اطلاعات جدول به دیتا گرید نوشتم اما خطا میگیره.
Type Miss Match
نمیدونم چیکار کنم



"این تعریف بانک"
Public db As Database
Public rssql As Recordset

"اینم کد"
Set rssql = db.OpenRecordset("SELECT * FROM " + NameDore)
Set DataGrid1.DataSource = rssql
DataGrid1.Refresh

NameDore یه متغیره که نام جدول رو تو خودش ذخیره میکنه

HjSoft
سه شنبه 18 فروردین 1388, 14:23 عصر
از این کد استفاده کن ببین درست میشه ! در ضمن نگفتی کجا رو واسه ارور مشخص می کنه ؟

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

کد :

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db.hjdb;Persist Security Info=False;Jet OLEDB:Database Password=hjsoft"
rst.Open "select * from table", cnn, adOpenKeyset, adLockOptimistic, adCmdText

mosi13
چهارشنبه 19 فروردین 1388, 00:53 صبح
این قسمت رو های لایت میکنه
Set DataGrid1.DataSource = rssql
نمیشه با همون تعاریف کاری کرد حتما باید از ADOB استفاده کرد؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟:گریه:

moeinjoon
چهارشنبه 19 فروردین 1388, 02:25 صبح
ببين در كل در كد هات اشتباه زياد داري اين يه نمونه آماده شدست اميدوارم به دردت بخوره

vbhamed
چهارشنبه 19 فروردین 1388, 08:08 صبح
سلام

دليلش اينه كه شما ظاهرا اصلا بانكتون رو باز نكردين



Public db As Database
Public rssql As Recordset

Set db = OpenDatabase("c:\test.mdb")
Set rssql = db.OpenRecordset("SELECT * FROM " + NameDore)
Set DataGrid1.DataSource = rssql
DataGrid1.Refresh

mosi13
چهارشنبه 19 فروردین 1388, 14:19 عصر
چرا باز کردم اما یادم رفته بود اینجا بنویسم.

HjSoft
پنج شنبه 20 فروردین 1388, 05:58 صبح
چرا از روش adodc استفاده نمی کنید ، شبیه و خیلی راحتتر هم هست .

mosi13
جمعه 21 فروردین 1388, 15:17 عصر
با ADODC نوشتم اما وقتی جدول و کلا سلت میکنم خطا نمیده اما اگه تو سلکت از شرط (WHERE) استفاده کنم خطا میگیره از خط :
ADODC1.refresh

اینم کدش :



Adodc1.RecordSource = "SELECT * FROM " + NameDore + "WHERE FName LIKE'*" & SName & "*'"
ADODC1.refresh

xxxxx_xxxxx
جمعه 21 فروردین 1388, 15:21 عصر
با ADODC نوشتم اما وقتی جدول و کلا سلت میکنم خطا نمیده اما اگه تو سلکت از شرط (WHERE) استفاده کنم خطا میگیره از خط :
ADODC1.refresh

اینم کدش :



Adodc1.RecordSource = "SELECT * FROM " + NameDore + "WHERE FName LIKE'*" & SName & "*'"
ADODC1.refresh


سلام
فاصله ها رو رعايت كنيد. بين هر كلمه بايد فاصله باشه پس قبل از Where يك space بزنيد