تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الي كل من يجيد التعامل مع قواعد البيانات
#1
ما الخطا هنا



كود :
Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Form_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Informload(Me)
    End Sub
    Private Sub Form_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Resizeform(Me)
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Application.Exit()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Conn.Close()
        Sql = "add"
        Dim savein As New OleDb.OleDbCommand
        savein.CommandText = Sql

        savein.CommandType = CommandType.StoredProcedure
        savein.Connection = Conn
        Try
            Conn.Open()
            savein.Parameters.Add("@Nomber", OleDbType.Integer)
            savein.Parameters("@Nomber").Value = Trim(TextBox1.Text)

            savein.Parameters.Add("@Date_Joine", OleDbType.Date)
            savein.Parameters("@Date_Joine").Value = Trim(DateTimePicker1.Value)

            savein.Parameters.Add("@Name", OleDbType.VarChar, 50)
            savein.Parameters("@Name").Value = Trim(TextBox2.Text)

            savein.Parameters.Add("@Markz", OleDbType.VarChar, 20)
            savein.Parameters("@Markz").Value = ComboBox1.SelectedItem

            savein.Parameters.Add("@Adress", OleDbType.VarChar, 70)
            savein.Parameters("@Adress").Value = TextBox3.Text

            savein.Parameters.Add("@Job", OleDbType.VarChar, 30)
            savein.Parameters("@Job").Value = TextBox4.Text

            savein.Parameters.Add("@Takhsoss", OleDbType.VarChar, 30)
            savein.Parameters("@Takhsoss").Value = TextBox5.Text

            savein.Parameters.Add("@Date-berth", OleDbType.Date)
            savein.Parameters("@Date-berth").Value = Trim(DateTimePicker2.Value)

            savein.Parameters.Add("@Code", OleDbType.Integer)
            savein.Parameters("@Code").Value = TextBox6.Text

            savein.Parameters.Add("@Phone", OleDbType.Integer)
            savein.Parameters("@Phone").Value = TextBox7.Text

            savein.Parameters.Add("@Hezb_Dor", OleDbType.VarChar, 50)
            savein.Parameters("@Hezb_Dor").Value = TextBox8.Text

            savein.ExecuteNonQuery()
            Conn.Close()
            Conn.Dispose()
            Conn = Nothing
            MsgBox("A new hardware has been added successfully.Do you want to add software concerning this device.", MsgBoxStyle.OkCancel + MsgBoxStyle.Information, "Hardware Manager")
        Catch ex As Exception
            MsgBox(savein.CommandText)
        End Try
    End Sub
End Class
الباقي
كود :
Imports System.Data.OleDb
Module Module1
    Public Cmd As OleDbCommand
    Public cnnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & _
                Application.StartupPath & "\ELNour.mdb"
    Public Conn As New OleDbConnection(cnnString)
    Public Dr As OleDbDataReader
    Public Sql As String
    Public Ds As DataSet
    Public dt As DataTable
    Private Structure CtrlProportions
        Dim HeightProportions As Single
        Dim WidthProportions As Single
        Dim TopProportions As Single
        Dim LeftProportions As Single
        Dim FontProportions As Font
        Dim FontSizeScaleProportions As Single
    End Structure
    Private ProportionsArray() As CtrlProportions

    Private ctrl As New List(Of Control)

    Public Sub Informload(ByVal frm As Form)

        On Error Resume Next

        Application.DoEvents()

        ctrl = GetControls(frm)
        For i = 0 To ctrl.Count - 1
            If TypeOf (ctrl(i)) Is Form Then ctrl.Remove(ctrl(i))
        Next

        ReDim ProportionsArray(0 To ctrl.Count - 1)

        For I As Integer = 0 To ctrl.Count - 1
            With ProportionsArray(I)
                .HeightProportions = ctrl(I).Height / frm.Height
                .WidthProportions = ctrl(I).Width / frm.Width
                .TopProportions = ctrl(I).Top / frm.Height
                .LeftProportions = ctrl(I).Left / frm.Width
                .FontProportions = ctrl(I).Font
                .FontSizeScaleProportions = ctrl(I).Font.Size / frm.Height
            End With
        Next

    End Sub

    Private Function GetControls(ByVal Ctrl As Control) As List(Of Control)
        GetControls = New List(Of Control)
        GetControls.Add(Ctrl)
        For Each c As Control In Ctrl.Controls
            GetControls.AddRange(GetControls(c))
        Next
    End Function

    Public Sub Resizeform(ByVal frm As Form)

        On Error Resume Next

        For I As Integer = 0 To ctrl.Count - 1
            ctrl(I).Left = ProportionsArray(I).LeftProportions * frm.Width
            ctrl(I).Top = ProportionsArray(I).TopProportions * frm.Height
            ctrl(I).Width = ProportionsArray(I).WidthProportions * frm.Width
            ctrl(I).Height = ProportionsArray(I).HeightProportions * frm.Height
            ctrl(I).Font = New Font(ProportionsArray(I).FontProportions.FontFamily _
                                  , ProportionsArray(I).FontSizeScaleProportions * frm.Height _
                                  , ProportionsArray(I).FontProportions.Style)
        Next

    End Sub
End Module
الخطا عندي في جملة الاضافة وانا استخدم استعلامات اكسس 2003
وقاعدة البيانات مرفقة مع المثال ارجو الرد للاهمية
[ATTACH]1794[/ATTACH]


الملفات المرفقة
.rar   ELNour.rar (الحجم : 17.24 ك ب / التحميلات : 30)
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

Heart
الرد }}}}
تم الشكر بواسطة:
#2
أولاً: عم يتحدث هذا الكود؟ يعني ما هو برنامجك؟
ثانياً: القسم غير مناسب ومن الصعب أن يأتي الأعضاء ويجيبونك هنا. الأفضل وضع الموضوع في قسم:
فيجوال بيسك دوت نت VB.NET
.
الرد }}}}
تم الشكر بواسطة:
#3
شكرا .
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 9 منذ 10 ساعة مضت
آخر رد: khodor1985
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,621 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] التعامل مع الداتا جريد zepeir 5 2,965 15-09-17, 08:41 PM
آخر رد: Saadzindany
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 146 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 186 15-08-17, 02:11 PM
آخر رد: abozeyd
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 170 19-07-17, 03:24 PM
آخر رد: waelalmsry75
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 172 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 708 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] كيف احفظ صورة الطالب الى قاعدة البيانات عبداللطيف2017 6 328 25-06-17, 01:47 PM
آخر رد: silverlight
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 6,084 28-05-17, 05:30 PM
آخر رد: abiza

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم