تقييم الموضوع :
  • 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 ك ب / التحميلات : 17)
Heart
اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً

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

الرد }}}}
تم الشكر بواسطة:
#3
شكرا .
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 85 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  استفسار حول عدم تكرار البيانات المتألق9 3 151 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 184 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 153 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 168 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 160 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli
  الانتقال إلى السجل الثاني في قاعدة البيانات و إظهار الصورة التالية على picturebox ahmed_elwerfalli 6 483 24-12-16, 11:07 PM
آخر رد: ahmed_elwerfalli
  جلب البيانات من قاعدة بيانات XML djelloul 0 211 13-12-16, 07:45 PM
آخر رد: djelloul
  مشكلة في تصميم قاعدة البيانات djelloul 2 288 06-12-16, 12:36 PM
آخر رد: djelloul

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


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