نقل قول:
نوشته شده توسط nasim bahari
اين كد كه اجرا نميشه ارور مياره
Printable View
نقل قول:
نوشته شده توسط nasim bahari
اين كد كه اجرا نميشه ارور مياره
نقل قول:
نوشته شده توسط damas90
کد بالا برای Insert درون جدولی بنام Tabel1 که دارای آداپتوری بنام tabbel1tabeladaptor هستش و البته اون جدول فقط دارای یه فیلد ( id ) اون هم از نوع Integer هست.
در واقع کد بالا یه شبه کد برای کمک به شما بود و نه یه کد واقعی......آخه من که نام tabelAdaptor و همچنین تعداد فیلد های جدول مورد نظر و نوع اونها رو نمی دونم که کد واقعی برای شما بزارم......
دوست عزیز ....شما برای اینکه برنامه های مبتنی بر پایگاه داده بنویسید ....ابتدا باید مفاهیم پایگاه داده و همچنین اطلاعات اولیه از نحوه استفاده بانک های اطلاعاتی در VB رو بدونین.....که فقط کافیه مواردی که مورد نظرتون هستش رو در همین سایت سرچ کنید تا به مقصودتون برسین.........
موفق باشید....
از همون کدی که برای گذاشته بودم می تونی برای هر بانک اطلاعاتی استفاده کنی، فقط چند تفاوت کوچک. برای استفاده آن در اکسس :نقل قول:
نوشته شده توسط damas90
1- Connection String را تغییر بده.
2- همه SqlClient ها را به OleDb تغییر بده.
مابقیش یکیه.
اين الان اين كدهاي پايين اشكالشون كجاست؟؟نقل قول:
نوشته شده توسط Mani_rf
هركار ميكنم نه ارور مياره ونه اجرا ميشه
ميشه كمكم كنين؟؟
PublicClass Form1
Dim Co AsNew OleDb.OleDbConnection("Data Source=Database1.accdb;Provider=Microsoft.ACE.OLED B.12.0;Initial Catalog=[DataBase1dataset]")
Dim Comand AsNew OleDb.OleDbCommand("insert into [Table1] (sho_persenli,Name,Family) Values(" & TextBoxid.Text & ",'" & TextBoxname.Text & "','" & TextBoxfamily.Text & "')", Co)
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Co.Open()
Comand.ExecuteNonQuery()
Co.Close()
EndSub
EndClass
Private ObjCon AsNew OleDb.OleDbConnection
Private ObjCom AsNew OleDb.OleDbCommand
Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\damas90\My Documents\Bank.mdb"
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ObjCon.ConnectionString = cs
ObjCon.Open()
ObjCom.Connection = ObjCon
ObjCom.CommandText = "insert Into Table1(ID,name,family) Values('" & TextBox1.Text & " ' ,' " & TextBox2.Text & " ' , ' " & TextBox3.Text & " ')"
ObjCom.ExecuteNonQuery()
EndSubبا عرض سلام
يك سوال پيش پا افتاده داشتم ميخواستم بدونم تو قطعه كد بالا وقتي يكبار اطلاعات باهمين فرم وارده ميشه براي دفعه دوم كه ميخوايم وارد كنيم ارور مياره !
سوالات:
1.كدي هست كه كه اين نقص رو برطرف كنه؟؟
2.كدي هست كه اگر اطلاعات تكراري بود پيغامي بياره؟؟
كسي هست كمكم كنه ممنون ميشم
نقل قول:
نوشته شده توسط damas90
کد را به این شکل تغییر بده:
Private ObjCon As OleDb.OleDbConnection
Private ObjCom As OleDb.OleDbCommand
Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\damas90\My Documents\Bank.mdb"
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ObjCon = New OleDb.OleDbConnection(cs)
ObjCon.Open()
ObjCom = New OleDb.OleDbCommand("insert Into Table1(ID,name,family) Values('" & TextBox1.Text & " ' ,' " & TextBox2.Text & " ' , ' " & TextBox3.Text & " ')")
ObjCom.ExecuteNonQuery()
EndSub
براي قسمت دوم سوالم كسي نيست كمك كنه؟؟
دوست عزيز شما وقتي با دستور زير کانکشن رو باز ميکني ديگه نبايد دوباره بازش کني مگه اينکه اول ببنديش
ObjCon.Open()
Private ObjCon AsNew OleDb.OleDbConnection
Private ObjCom AsNew OleDb.OleDbCommand
Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\damas90\My Documents\Bank.mdb"
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ObjCon.ConnectionString = cs
ObjCon.Open()
ObjCom.Connection = ObjCon
ObjCom.CommandText = "insert Into Table1(ID,name,family) Values('" & TextBox1.Text & " ' ,' " & TextBox2.Text & " ' , ' " & TextBox3.Text & " ')"
ObjCom.ExecuteNonQuery()
EndSubبا عرض سلام
قطعه كد بالا براي اضافه كردن ركورد به بانك اكسسه
حالا اگر خواسته باشيم كدي بنويسيم كه از textbox4 مقداري بگيريد وبا كليك رو كليد جستجوكند كه آيا مقدار textbox4 در ID بانك هست يا نيست بايد چجوري بنويسيم؟؟
منظورم همون search در بانك اكسسه؟؟
كسي هست كمكم كنه؟؟
كسي كمكم نميكنه؟؟نقل قول:
نوشته شده توسط damas90
هنقل قول:
نوشته شده توسط damas90
دوست عزیز ،ببخشید من اینو میگم، هیچوقت ما موفق نمیشیم مگر اینکه اول خودمون سعی کنیم بعد اگه واقعاً نتونستیم از دیگران بپرسیم
این باعث میشه که ذهنت بازتر بشه، سریعتر به نتیجه برسی- انگلیسیت هم بهتر بشه.
من اگه سوال میکنم، واقعاً نتونستم
بعضی سوالها مشخصه وقتی فرمی با کد
form2.show()
نشون داده میشه، یکم سعی کنی و گزینه های خود ویزالبیسیک رو چک میکردی میدیدی که
form2.hide()
میتونه یه فرم رو ناپدید کنه، روش های مختلفی برای این موضوع هست، میتونی کتاب های انگلیسی رو دانلود کنی، کمی انگلیسی جستجو کن
برای حل مشکلت کد زیر رو اگه کمی دستکاری کنی جواب میدهنقل قول:
نوشته شده توسط damas90
این کد به ازای هر ایدی که وارد میکنی، اگه فیلد دوم همون سطر مقدار داشته باشه یه دستوری رو اجرا میکنه
Dim id As Integer
id = Val(TextBox5.Text) گرفتن ای دی سطری که باید خونده یا ویرایش بشه
Dim querystring As String = "select * from tb1 where id=@id" دستور جستجو
Using connection As New SqlConnection("Data Source=POURYA-PC\SQLEXPRESS;Initial Catalog=sickinfo;Integrated Security=True")
Dim comand As New SqlCommand(querystring, connection)
comand.Parameters.Add("@id", SqlDbType.Int).Value = id.ToString()
connection.Open()
Dim reader As SqlDataReader = comand.ExecuteReader()
While reader.Read()
if not reader(1) = nothing then
دستوراتت رو اینجا بنویس
end if
End While
reader.Close()
End Using
با عرض سلام
یک سوال مهم وکلیدی داشتم
میخوام که در یک فرم دکمه ای موجود باشد که با کلیک کردن brows aشود واز درایوهای موجود عکسی انتخاب شده ودر جای مناسبی از فرم به نمایش بیاید ودر آخر با کلیک روی دکمه Save در بانک اکسس ذخیره شود
خیلی دنبال این گشتم اما پیدا نکردم
خواهش میکنم اگه کسی یاد داره کمکم کنه
نقل قول:
نوشته شده توسط damas90
كسي كمكم نميكنه؟؟
خواهش ميكنم
نقل قول:
نوشته شده توسط damas90
سلام لطف ميكني بگي Database شما چيه ؟ Access يا SQL
اين هم برنامه اي براي ذخيره و بازخواني عكس در ديتابيس اكسس
با سلام
سوالم این بود که چطور میشه برنامه ای با vb.net و sql نوشت ک برای اجرای اون در سیستم مقصد نیازی به نصب sql server یا dotnet framework نباشه
من دقیقاً متوجه منظورتون نشدم....
مگه میشه یه برنامه با تکنولوژی دات نت نوشت و خود دات نت رو نصب نکرد....؟
موضوع بالا در مورد SQL هم صدق می کنه..............؟
اما چرا خیلی از برنامه های بزرگ مثل حسابداری برای نصبشون نیاز به نصب sql یا framework ندارند...واقعا یعنی هیچ راهی نیست ؟ یا زاهی هیست که ما نمیدونیمو فقط بزرگان میدونن؟
شنیدم برنامه ای مثل redgte یا sql express بهمون کمک میکنن.......نظز شما چیه ؟
نقل قول:
نوشته شده توسط mohsencom
دوست عزیز، در اون نرم افزار ها برای ساخت برنامه نصب نرم افزار از یک سری نرم افزار های ستاپ ساز استغاده می کنن که موارد لازم برای اجرای نرم افزارشون رو به اون میدن و برنامه ستاپ ساز هم یه ستاپ می سازه که اون ملزومات رو به طور اتومات نصب می کنه........
در ضمن sql express نسخه از موتور Sql هستش که برای بانک های محلی به کار میره و از اون نمی توان برای بانک های تحت شبکه استفاده کرد.......
بله می شود. اگر کمی جستجو کنید این بحث قبلا در سایت مطرح شده و نرم افزارها و راهکارهایی هم برای اجرای برنامه های .Net بدون نیاز به نصب آن ارائه شده.نقل قول:
نوشته شده توسط nasim bahari
درسته دوست عزیز...یکی از همین برنامه هایی که میشناسم installshield هست اما همین نرم افزارم فقط عمل attach دیتابیس و یه سری کارای دیگه رو واسه مشتری یه صورت خودکار انجام میده و به همراه ستاپ برنامه sql server و چند تای دیگه رو نصب میکنه...یعنی راهی هست بدون نصب sql برنامه اجرا بشه؟؟؟نقل قول:
نوشته شده توسط nasim bahari
لطفا اگه ممکنه لینک همین مطلیو اینجا بذارید..هر چی گشتم پیدا نکردم..یه لینک پیدا کردم اونم بی پاسخ مونده بودنقل قول:
نوشته شده توسط Mani_rf
با عرض سلام خدمت دوستان يك سوال در مورد اضافه كردن ركورد در اكسس داشتم كسي هست كمكم كنه؟؟
من كدزير رو براي وارد كردن اطلاعات نوشتم اما بيشتر از 11 فيلد ذخيره نميكنه
آيا مدلش اينجوريه يا من اشتباهي كردم
خواهش ميكنم كمكم كنيد چون خيلي گيرشم
cmd.Connection = con
cmd.CommandText = "insert into table1 values(@sho_perseneli,@name,@family,@name_pedar,@j ens,@tt_ruz,@tt_mah,@tt_year,@tell,@mobile,@mohle_ tavallod)"
cmd.Parameters.AddWithValue("@sho_perseneli", tb_sho.Text)
cmd.Parameters.AddWithValue("@name", tb_name.Text)
cmd.Parameters.AddWithValue("@family", tb_family.Text)
cmd.Parameters.AddWithValue("@name_pedar", tb_pedar.Text)
cmd.Parameters.AddWithValue("@jens", tb_jens.Text)
cmd.Parameters.AddWithValue("@tt_ruz", tb_ruz.Text)
cmd.Parameters.AddWithValue("@tt_mah", tb_mah.Text)
cmd.Parameters.AddWithValue("@tt_year", tb_year.Text)
cmd.Parameters.AddWithValue("@tell", tb_tell.Text)
cmd.Parameters.AddWithValue("@mobile", tb_tell_hamrah.Text)
cmd.Parameters.AddWithValue("@mohle_tavallod", tb_tavallod.Text)
con.Open()
n = cmd.ExecuteNonQuery()
Con.close()
وقتي ميخوام چند فيلد ديگه كه در جدول موجوده رو اضافه كنم ارور مياره
بايد چيكار كنم؟؟
سلام دوست عزیز............نقل قول:
نوشته شده توسط damas90
من فر می کنم مشکی از خط زیر باشه......
cmd.Parameters.AddWithValue("@sho_perseneli", tb_sho.Text
نوع داده شماره پرسنلی باید حتماً از نوع داده صحیح باشه بهتره که به صورت long استفاده کنی......در ضمن وقتی می خواهی مثل خط بالا محتوای یه تکست باکس رو در اون بریزی از تابع VAL() استفاده کن.......مثل زیر....
cmd.Parameters.AddWithValue("@sho_perseneli", val(tb_sho.Text)
موفق باشین
سلام
من ميخام بدونم معادل vbmodal تو vb.net 2008چيه
با تشكر
ShowDialog
با سلام
من دو تا مشکل کوچیک دارم :
اول اینکه من وقتی توی فرمم دکمه Tab رو می زنم بجای اینکه Focus به ترتیب بین فیلدها حرکت کند , به طور نامنظم حرکت می کند . TabIndex را هم به ترتیب قرار داده ام آما باز نمی دونم چرا اینجور حرکت می کنه!
دوم اینکه تابعی می خوام که رشته ای رو که بهش میدی رو به عدد تبدیل کنه . مثال می زنم : رشته "crying sphere" رو به مقدار عددی ( کد اسکی ) آنها تبدیل کنه . چیزی مثل 65238458958 که عددی است که کاربر اصلا نمیتونه حدث بزنه این عدد چجور از اون کلمه بدست اومده .
اگه کسی از دوستان گرامی می تونه مشکل منو حل کنه لطف بزرگی به من کرده . خیلی ممنون .
متوجه نشدم !!!... يعني شما ميتونيد بدون نصب NET Framework برنامه تحت اون را در سيستم اجرا كنيد ؟ !!!نقل قول:
نقل قول:
نوشته شده توسط nasim bahari https://barnamenevis.org/images...s/viewpost.gif
من دقیقاً متوجه منظورتون نشدم....
مگه میشه یه برنامه با تکنولوژی دات نت نوشت و خود دات نت رو نصب نکرد....؟
موضوع بالا در مورد SQL هم صدق می کنه..............؟
بله می شود. اگر کمی جستجو کنید این بحث قبلا در سایت مطرح شده و نرم افزارها و راهکارهایی هم برای اجرای برنامه های .Net بدون نیاز به نصب آن ارائه شده.
ميشه لينك مربوطه را بديد ؟
دوست عزیز......سلامنقل قول:
نوشته شده توسط Afshin160
من در این مورد در سایت جستجو کردم و به نتیجه ی دلخواه نرسیدم .....به همین خاطر یه تایپیک جدید ایجاد کردم.........لینکشو می زارم.........میتونه بهت کمک کنه....
موفق باشی
http://www.barnamenevis.org/sh...d.php?t=241046
--------------------
--------------------
سلام دوست عزیز....نقل قول:
نوشته شده توسط crying sphere
در مورد سوال دومت.......
اول طول رشته رو بدست بیار.......سپس در یه حلقه که از یک تا طول حلقه تکرار میشه....بوسیله تابع Mid یکی یکی کارکتر ها رو از رشته اصلی بردار و تبدیل بکن و در رشته جدید قرار بده.....
موفق باشی
واسه مشکل اولتون با استفاده از منوی view گزینه tab order رو بزنید حالا اگر به ترتیب رو کنترل ها کلیک کنید ترتیب فوکوسشون به همون ترتیب می شه.نقل قول:
نوشته شده توسط crying sphere
اما سوال دومتون .
من هم حدود 2 سال پیش فکر می کردم این روش روش مطمئنی واسه کد کردنه واسه همین یک دفعه سر کلاس تاریخ این کد رو نوشتم (حوصلم سر رفته بود:لبخند:) کد رو ضمیمه کردم
cmd.Connection = con
cmd.CommandText = "insert into table1 values(@sho_perseneli,@name,@family,@name_pedar,@j ens,@tt_ruz,@tt_mah,@tt_year,@tell,@mobile,@mohle_ tavallod)"
cmd.Parameters.AddWithValue("@sho_perseneli", tb_sho.Text)
cmd.Parameters.AddWithValue("@name", tb_name.Text)
cmd.Parameters.AddWithValue("@family", tb_family.Text)
cmd.Parameters.AddWithValue("@name_pedar", tb_pedar.Text)
cmd.Parameters.AddWithValue("@jens", tb_jens.Text)
cmd.Parameters.AddWithValue("@tt_ruz", tb_ruz.Text)
cmd.Parameters.AddWithValue("@tt_mah", tb_mah.Text)
cmd.Parameters.AddWithValue("@tt_year", tb_year.Text)
cmd.Parameters.AddWithValue("@tell", tb_tell.Text)
cmd.Parameters.AddWithValue("@mobile", tb_tell_hamrah.Text)
cmd.Parameters.AddWithValue("@mohle_tavallod", tb_tavallod.Text)
con.Open()
n = cmd.ExecuteNonQuery()
Con.close()
منظورم اين نبود كه 11كاراكتر بگيره منظورم اين بود كه فيلد بيشتر بگيره بعنوان مثال ش ش و... منظورم فيلد بودنقل قول:
نوشته شده توسط nasim bahari
هركار ميكنم بيشتر از 11 فيلد عمل نميكنه
كسي ميتونه كمكم كنه؟؟
منظور از فرم دختر همون فرم فرزند هست دیگه ؟؟؟؟؟؟؟ :اشتباه:نقل قول:
نوشته شده توسط nasim bahari
نام صحیح همان فرم دختر هستش و در اصطلاح همان فرم فرزند هست و فرقی نمی کنه.....اصلاً شما بگو فرم پسر....نقل قول:
نوشته شده توسط MehdiElexal
با تشکر از شما دوست خوبنقل قول:
نوشته شده توسط nasim bahari
من کاراکترها را یکی یکی جدا می کنم ولی نمی دونم با کدوم تابع اونارو به عدد تبدیل کنم. اگه ممکنه تابعشو بهم معرفی کنین. بازم ممنونم ازتون
سلام دوست عزیز........نقل قول:
نوشته شده توسط crying sphere
تابع ASC برای بدست آوردن کد اسکی کارکتر وارد شده به کار می رود......
موفق باشین
سلام دوستان
نوشتن برنامه من تموم شد، با پایگاه داده اکسس 2007 کار میکنم، شنیدم برای اجرای برنامه در سیستم های دیگه باید اکسس نصب کنم، یا یه راه آسونتر اینکه فایلهای dll و... مورد نیاز رو همرا برنامه کپی کنم
من از این موضوع اطلاعا چندانی ندارم، تو گوگل که جستجو کردم اکسس 2003 به همین روش بود اما اکسس 2007 چیزی ندیدم
چه چیزهایی لازم هست و باید رعایت کنم برای اینکه برنامه بتونه تو کامپیوتر های مختلف اجرا بشه؟
سلام دوست مننقل قول:
نوشته شده توسط hamidreza66
اگه برنامتون رو با یکی از زبانهای دات نت نوشتین و واسط ارتباط بانکتون از ADO.net استفاده کردین ، میبایست بر روی سیستم مقصد همون نسخه dot net framework که باهاش برنامه نویسی کردین رو نصب کنید
چیز دیگه ای لازم نیست
برنامه رو قتی تو کامپیوتر دیگه ای باز میکنم اجرا میشه اما به پایگاه داده وصل نمیشه تا اینکه اکسس نصب کنمنقل قول:
نوشته شده توسط ashkan209
1- نگفتین برنامتون رو با چی نوشتین (دات نت یا غیر - ado یا ado.net ))؟نقل قول:
نوشته شده توسط hamidreza66
2- آیا اکسس که نصب می کنید ، مشکل برطرف میشه ؟
3- قبل از نصب اکسس برای وصل نشدن چه خطایی میده ؟ یه اسکرین شات از اون خطا برامون بذارین
با عرض سلام وخسته نباشيد خدمت دوستانميخوام يك عكس رو ار بانك اكسس باز خواني كنم اما نميدونم چطوري عكس رو در PictureBox نمايش بدهم كسي ميتونه كمكم كنه خواهش ميكنم
خواهش ميكنم كسي اگه ميدونه كمكم كنهخيلي گيرشم
خواهش ميكنم سوال بالا مو يكي جواب بده
بدجوري كارم گيرشه
خواهش ميكنم
سلام
می خواستم بدونم پیشنهادهای مایکروسافت برای پیشوندهایی که برای متغیرها، کنترلها استفاده می کنیم چی هست؟
برای مثال برای یک Form می تونیم از frm استفاده کنیم، مثلا frmNew
برای کنترل ComboBox چندتا پیشوند پیشنهاد شده:
1. cmb
2. cb
3. cbo
ممنون میشم راهنماییم کنید
به اینجا مراجعه کنین.نقل قول:
نوشته شده توسط salmanbnd
http://support.microsoft.com/kb/110264
باعرض سلام خدمت دوستان يك سوال داشتم ويك راهنمايي ميخوام
براي اضافه كردن به بانك اكسس به روش پارامتري بيشتر از يازده فيلد نميشه واگر بيشتر بزني ارور مياره قطعه كد زير كجاش مشكل داره يا اينكه كلا همينجوري هست وروش بهتر وكامل تري هست كه اين ايراد رو برطرف كنه؟؟
Public Class Form1
Dim n As Int32
Private con As New OleDb.OleDbConnection
Private cmd As New OleDb.OleDbCommand
Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=|DataDirectory|\test2.mdb"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
cmd.Connection = con
cmd.CommandText = "insert into table1
values(@ID,@name,@family,@anme_pedar,@jens,@tt_ruz ,@tt_mah
,@tt_year,@tell,@mobile,@mohle_tavallod)"
cmd.Parameters.AddWithValue("@ID", TextBox1.Text)
cmd.Parameters.AddWithValue("@name", TextBox2.Text)
cmd.Parameters.AddWithValue("@family", TextBox3.Text)
cmd.Parameters.AddWithValue("@name_pedar", TextBox4.Text)
cmd.Parameters.AddWithValue("@jens", TextBox5.Text)
cmd.Parameters.AddWithValue("@tt_ruz", TextBox6.Text)
cmd.Parameters.AddWithValue("@tt_mah", TextBox7.Text)
cmd.Parameters.AddWithValue("@tt_year", TextBox8.Text)
cmd.Parameters.AddWithValue("@tell", TextBox9.Text)
cmd.Parameters.AddWithValue("@mobile", TextBox10.Text)
cmd.Parameters.AddWithValue("@mohle_tavallod",TextBox11.Text)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Handles MyBase.Load
con = New
OleDb.OleDbConnection(
"Provider=Microsoft.Jet.OLEDB.4.0;data
source=|DataDirectory|\test2.mdb")
cmd = New OleDb.OleDbCommand()
End Sub
End Class
خواهش ميكنم كمكم كنيد
محدودیتی برای یازده فیلد وجود ندارهنقل قول:
... براي اضافه كردن به بانك اكسس به روش پارامتري بيشتر از يازده فيلد نميشه واگر بيشتر بزني ارور مياره
Error اتفاق افتاده و خطی که به خطا بر میخوره رو بذارین
سلام دوستان گلم
من يك سوال داشتم در خصوص باز خواني عكس در بانك اكسس
من عكس رو بصورت باينري ذخيره كردم به شكل زير:
حالا ميخوام فراخوانيش كنم وتوي PictureBox به نمايش بدم چه كدي رو بايد بنويسم؟؟ كسي ميتونه كمكم كنه؟؟
البته براي فراخوانيش يك تكست باكس هست كه داخلش شماره عكس بايد وارد بشه وبا كليك روي باتن بايد در PictureBox به نمايش بياد
قطعه كد اضافه كردن عكس :
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim result As DialogResult = Me.OFD.ShowDialog
If result = Windows.Forms.DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OFD.FileName.ToString)
EndIf
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Trim(TextBox1.Text) <> ""Then
Dim ms AsNew IO.MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim ArryPic AsByte() = ms.GetBuffer
ms.Close()
Dim cs AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Database.mdb;Persist Security Info=True"
ObjCon.ConnectionString = cs
ObjCon.Open()
ObjCom = New OleDbCommand
ObjCom.Connection = ObjCon
ObjCom.CommandText = "Insert Into TBL(PICID,Pic) Values(@A1,@Picture)"
ObjCom.Parameters.Add(
New OleDbParameter("@A1", OleDbType.VarChar)).Value = TextBox1.Text
ObjCom.Parameters.Add(New OleDbParameter("@picture", OleDbType.LongVarBinary)).Value = ArryPic
ObjCom.ExecuteNonQuery()
ObjCon.Close()
MsgBox("Save In Database Done")
Else
MsgBox(
"Fill Picture Id Please.")
EndIf
EndSub
كسي نيست كمكم كنه؟؟
خواهش ميكنم خيلي گير اين موضوع هستم