View Full Version : راهنمايي از اساتيد خطاي زير از چيه ؟؟
teralone
چهارشنبه 15 دی 1389, 19: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, 21:41 عصر
دوست عزیز نحوه تعریف Connection String اصلا اونطور نیست که شما استفاده کردی
روی DataBaset توی ServerExplorer کلیک راست کن و Propertise بگیر اونجا بهت CS بهت میده
mansourii
چهارشنبه 15 دی 1389, 22:34 عصر
کانکشن استرینگ رو کمپلت اشتباه نوشتی
teralone
پنج شنبه 16 دی 1389, 12:32 عصر
دوستان من تازه كارم ميشه كد رو به صورت صحيح برام بنويسيد ؟
به من گفتن جلوي دستور فوق فقط ادرس بانكو بين دابل كوتيشن بزار
ببخشيد دوستاي گلم تازه كارم ديگه
kebriya
پنج شنبه 16 دی 1389, 13:19 عصر
این مدلی باید بنویسی:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb
teralone
پنج شنبه 16 دی 1389, 13: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, 13: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, 14:43 عصر
دوستان كمك كنيد توروخدا!:گریه:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.