آخرین ویرایش به وسیله nasim bahari : دوشنبه 01 شهریور 1389 در 15:10 عصر دلیل: ت
واسه مشکل اولتون با استفاده از منوی view گزینه tab order رو بزنید حالا اگر به ترتیب رو کنترل ها کلیک کنید ترتیب فوکوسشون به همون ترتیب می شه.
اما سوال دومتون .
من هم حدود 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كاراكتر بگيره منظورم اين بود كه فيلد بيشتر بگيره بعنوان مثال ش ش و... منظورم فيلد بود
هركار ميكنم بيشتر از 11 فيلد عمل نميكنه
كسي ميتونه كمكم كنه؟؟
سلام دوستان
نوشتن برنامه من تموم شد، با پایگاه داده اکسس 2007 کار میکنم، شنیدم برای اجرای برنامه در سیستم های دیگه باید اکسس نصب کنم، یا یه راه آسونتر اینکه فایلهای dll و... مورد نیاز رو همرا برنامه کپی کنم
من از این موضوع اطلاعا چندانی ندارم، تو گوگل که جستجو کردم اکسس 2003 به همین روش بود اما اکسس 2007 چیزی ندیدم
چه چیزهایی لازم هست و باید رعایت کنم برای اینکه برنامه بتونه تو کامپیوتر های مختلف اجرا بشه؟
با عرض سلام وخسته نباشيد خدمت دوستانميخوام يك عكس رو ار بانك اكسس باز خواني كنم اما نميدونم چطوري عكس رو در PictureBox نمايش بدهم كسي ميتونه كمكم كنه خواهش ميكنم
خواهش ميكنم كسي اگه ميدونه كمكم كنهخيلي گيرشم
آخرین ویرایش به وسیله damas90 : یک شنبه 14 شهریور 1389 در 00:44 صبح
خواهش ميكنم سوال بالا مو يكي جواب بده
بدجوري كارم گيرشه
خواهش ميكنم
سلام
می خواستم بدونم پیشنهادهای مایکروسافت برای پیشوندهایی که برای متغیرها، کنترلها استفاده می کنیم چی هست؟
برای مثال برای یک Form می تونیم از frm استفاده کنیم، مثلا frmNew
برای کنترل ComboBox چندتا پیشوند پیشنهاد شده:
1. cmb
2. cb
3. cbo
ممنون میشم راهنماییم کنید
به اینجا مراجعه کنین.
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
كسي نيست كمكم كنه؟؟
خواهش ميكنم خيلي گير اين موضوع هستم