تقييم الموضوع :
  • 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
شكرا .
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 0 3 منذ 12 دقيقة مضت
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 38 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 347 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 76 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  تسمية قاعدة البيانات قبل انشائها aiman 3 167 15-09-16, 09:12 PM
آخر رد: Abu Ehab
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 138 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي
  [VB.NET] الفيجوال بيسك لا يحفظ البيانات محمد خلف زكي 1 214 02-08-16, 05:54 AM
آخر رد: سعود
  لماذا لايتم حفظ الثواني مع باقي القيم الى قاعدة البيانات؟ سعود 2 383 01-08-16, 11:15 AM
آخر رد: أبوبكر سويدان
  مساعدة بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 24 733 17-06-16, 03:05 AM
آخر رد: رهف العريفي
Sad مشكلة عدم حفظ البيانات في قاعدة البيانات wrd 10 527 10-06-16, 10:20 PM
آخر رد: ابو ليلى

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


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