PDA

View Full Version : راهنمايي از اساتيد خطاي زير از چيه ؟؟



teralone
چهارشنبه 15 دی 1389, 18:56 عصر
سلام دوستان يه table تو اكسس ساختم كه ايدي auto number و يوزز text و پسورد از نوع text
امام موقع اجرا به ادرس بانك گير ميده درصورتي كه ادرس درسته ميشه راهنمايي كنيد تا پس فردا بايد تحويل استاد بدم :خجالت:

Format of the initialization string does not conform to specification starting at index 0

خط دستور برنامه ام هم اينه
() Dim con As oledbconnection = New oledbconnection
"con.ConnectionString = "E:\db1.mdb

ويژوال net 2008.

دسترسي به بانكم با دستور تو جنرال ست كردم
imports system.data.oledb

تصويرم ضميمه ميكنم

ehsanvahab
چهارشنبه 15 دی 1389, 20:41 عصر
دوست عزیز نحوه تعریف Connection String اصلا اونطور نیست که شما استفاده کردی
روی DataBaset توی ServerExplorer کلیک راست کن و Propertise بگیر اونجا بهت CS بهت میده

mansourii
چهارشنبه 15 دی 1389, 21:34 عصر
کانکشن استرینگ رو کمپلت اشتباه نوشتی

teralone
پنج شنبه 16 دی 1389, 11:32 صبح
دوستان من تازه كارم ميشه كد رو به صورت صحيح برام بنويسيد ؟
به من گفتن جلوي دستور فوق فقط ادرس بانكو بين دابل كوتيشن بزار

ببخشيد دوستاي گلم تازه كارم ديگه

kebriya
پنج شنبه 16 دی 1389, 12:19 عصر
این مدلی باید بنویسی:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb

teralone
پنج شنبه 16 دی 1389, 12:37 عصر
دادش kebriya

بازم گير ميده به دستور execute reader
com.CommandText = "select* from Table1 where user=" + TextBox1.Text + " and pass=" + TextBox2.Text + ""
()Dim dr As OleDbDataReader = com.ExecuteReader به اين خط گير ميده
If dr.HasRows =True Then
MsgBox(" ")
Else
MsgBox(" ")
End If

توروخدا كمك كنيد من بايد شنبه بدم به استاد

teralone
پنج شنبه 16 دی 1389, 12:44 عصر
دادش kebriya
بازم گير ميده به خط execute reader
توروخدا كمك كنيد من بنويسم تحويل استاد بدم بره
شنبه بايد بدم 5نمره داره

Dim con As OleDbConnection = New OleDbConnection()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Niloofar\Desktop\dblogin.mdb"
con.Open()
Dim com As OleDbCommand = New OleDbCommand()
com.Connection = con
com.CommandText = "select* from Table1 where user=" + TextBox1.Text + " and pass=" + TextBox2.Text + ""
Dim dr As OleDbDataReader = com.ExecuteReader()
If dr.HasRows =True Then
MsgBox(" ")
Else
MsgBox(" ")
End If

عكس ضميمه ميكنم

teralone
پنج شنبه 16 دی 1389, 13:43 عصر
دوستان كمك كنيد توروخدا!:گریه: