06-05-13, 03:21 AM
[b][COLOR="#800080"]بسم الله الرحمن الرحيم
السلام عليكم أعضاء ومشرفى هذا الصرح الرائع
الذى تعملت منه الكثير
انتقلت مؤخرا إلى vb.net بعد الخروج من vb6 بصعوبة لطول العشرة
وبدأت فى أولى برامجى
ولكن للأسف البداية غير موفقة حيث واجهتنى المشكلة التالية[/COLOR][/b]
السلام عليكم أعضاء ومشرفى هذا الصرح الرائع
الذى تعملت منه الكثير
انتقلت مؤخرا إلى vb.net بعد الخروج من vb6 بصعوبة لطول العشرة
وبدأت فى أولى برامجى
ولكن للأسف البداية غير موفقة حيث واجهتنى المشكلة التالية[/COLOR][/b]
[COLOR="#800080"]
أعمل على زر الحفظ
حيث يقوم بحفظ البيانات بالإضافة صورة فى قاعدة البيانات
عند ملئ الـ TextBox بالبيانات واختيار الصورة وعند الضغط على زر الحفظ
كما فى الصورة
الكود المستخدم فى الحفظ
[/COLOR]حيث يقوم بحفظ البيانات بالإضافة صورة فى قاعدة البيانات
عند ملئ الـ TextBox بالبيانات واختيار الصورة وعند الضغط على زر الحفظ
كما فى الصورة
[ATTACH=CONFIG]2625[/ATTACH]
الكود المستخدم فى الحفظ
كود :
BB = My.Computer.FileSystem.ReadAllBytes(OP.FileName)
'===================================================================
Dim SavCom As New OleDbCommand
With SavCom
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into gen (num, kind,source,tex,notes ,Photo) values(?, ?, ?, ?, ?,?)"
.Parameters.Clear()
.Parameters.AddWithValue("@num", OleDbType.VarChar).Value = TextBox1.Text.Trim
.Parameters.AddWithValue("@kind", OleDbType.VarChar).Value = TextBox2.Text.Trim
.Parameters.AddWithValue("@source", OleDbType.VarChar).Value = TextBox3.Text.Trim
.Parameters.AddWithValue("@tex", OleDbType.VarChar).Value = Val(Val(TextBox3.Text.Trim) - Val(TextBox2.Text.Trim))
.Parameters.AddWithValue("@notes", OleDbType.VarChar).Value = Val(Val(TextBox3.Text.Trim) - Val(TextBox2.Text.Trim))
.Parameters.AddWithValue("@Photo", OleDbType.Binary).Value = BB
End With
Cn.Open()
SavCom.ExecuteNonQuery()
Cn.Close()
'========================================================================
Form1_Load(Nothing, Nothing)
MsgBox("One Record added successfully", MsgBoxStyle.Information, "Save")
ClearTxt()
NewBtn.Enabled = True
كود :
If Cn.State = ConnectionState.Open Then Cn.Close()
BrowseBtn.Enabled = False
NewBtn.Enabled = True
SaveBtn.Enabled = False
PictureBox3.Visible = False
'=====================================================
DS.Clear()
Dim DP As New OleDbDataAdapter("Select * from gen", Cn)
DP.Fill(DS, "gen")
'======================================================
If DS.Tables("gen").Rows.Count <> 0 Then
IDLb.DataBindings.Add("Text", DS, "gen.ID", True, 1)
PictureBox2.DataBindings.Add("Image", DS, "gen.Photo", True)
TextBox1.DataBindings.Add("Text", DS, "gen.num", True, 1)
TextBox2.DataBindings.Add("Text", DS, "gen.kind", True, 1)
TextBox3.DataBindings.Add("Text", DS, "gen.source", True, 1)
TextBox4.DataBindings.Add("Text", DS, "gen.tex", True, 1)
TextBox5.DataBindings.Add("Text", DS, "gen.notes", True, 1)
End If
الشكر مقدماً لكل من يتفضل علىّ بالحل الصحيح أو مجرد المساعدة