تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل]مشكلة في برنامج دليل الهاتف
#1
السلام عليكم محتاج مساعدة الله يكرمكوا دنيا وآخره...........
قبل كل شيء انا بإمكاني انزل برنامج جاهز حول دليل الهاتف ... لكن رغبتي في أني اتعلم ...
عندي مشكلة ف المشروع اللي رفته اتمنى منكم توضحون لي وش المشلكة اللي ما سمحت لي بإضافة البيانات الجديدة الى قاعدة البيانات اللي انشاتها ...


الملفات المرفقة
.rar   PhoneRecord.rar (الحجم : 104.92 ك ب / التحميلات : 40)
لا شيء يبقى إلى الأبد ... لذا اترك لك بصمة بعد الرحيل
الرد }}}}
تم الشكر بواسطة:
#2

السلام عليكم ورحمة الله وبركاته





بشكل سريع...


PHP كود :
Public Class Form1

    
Public cnn As New OleDb.OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" Application.StartupPath "\Directoryphone.accdb")



    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

        Me
.RefreshData()

    
End Sub



    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        
If Val(Me.TextBox1.Text) = 0 Then

            Dim sql 
As String
            sql 
" INSERT INTO [Names] ( [Name], [Number], [Address] ) " _
                  
"              VALUES (  @Name,  @Number,  @Address  ) "

            
Dim cmd As New OleDb.OleDbCommand(sqlcnn)
            
cmd.Parameters.AddWithValue("@Name    "Me.TextBox2.Text)
            
cmd.Parameters.AddWithValue("@Number  "Me.TextBox3.Text)
            
cmd.Parameters.AddWithValue("@Address "Me.TextBox4.Text)

            
cnn.Open()
            
cmd.ExecuteNonQuery()
            
cnn.Close()

        Else
            
Dim sql As String
            sql 
" UPDATE [Names]              " _
                  
"                             " _
                  
"    SET [Name]    = @Name,   " _
                  
"        [Number]  = @Number, " _
                  
"        [Address] = @Address " _
                  
"                             " _
                  
"  WHERE [sr] =  @sr          "

            
Dim cmd As New OleDb.OleDbCommand(sqlcnn)
            
cmd.Parameters.AddWithValue("@Name    "Me.TextBox2.Text)
            
cmd.Parameters.AddWithValue("@Number  "Me.TextBox3.Text)
            
cmd.Parameters.AddWithValue("@Address "Me.TextBox4.Text)
            
cmd.Parameters.AddWithValue("@sr      "Me.TextBox1.Text)

            
cnn.Open()
            
cmd.ExecuteNonQuery()
            
cnn.Close()

        
End If

        
RefreshData()

    
End Sub


    
Private Sub RefreshData()

        
Dim sql As String
        sql 
" SELECT *        " _
              
"   FROM [Names]  " _
              
"  ORDER BY [sr]  "

        
Dim da As New OleDb.OleDbDataAdapter(sqlcnn)
        
Dim dt As New DataTable
        da
.Fill(dt)

        
Me.DataGridView1.DataSource dt

        TextBox1
.Text ""
        
TextBox2.Text ""
        
TextBox3.Text ""
        
TextBox4.Text ""

    
End Sub

 
End 
Class 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#3
مشكور ابوزايد ع الرد السريع الله لايحرمنا وجود ...
بس سؤالي كاتب كود php يعني قصدك باستخدام لغة php
لا شيء يبقى إلى الأبد ... لذا اترك لك بصمة بعد الرحيل
الرد }}}}
تم الشكر بواسطة:
#4
الأخ الكريم وضع الكود داخل صندوق php ‏ ما عليك سوى نسخ الكود الذي داخل صندوق php ووضعه في المكان المناسب ،وظيفة هذا الصندوق تلويين الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مشكلة في كود الحذف ولا اغلم ما هو السبب alfeysal2 6 533 04-09-15, 04:18 AM
آخر رد: أبو عمر
  طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات لا يعرف المستحيل 7 1,095 04-02-15, 02:02 PM
آخر رد: مصطفى مجيد
  دعوة للمساهمة في بناء برنامج قواعد بيانات عربي yousef11 0 687 20-07-13, 12:05 AM
آخر رد: yousef11
  طلب : برنامج يحول بين قواعد البيانات mamas1 2 720 05-06-13, 05:13 PM
آخر رد: mamas1
  مشكلة بتحويل اكسس الى sql the viper 1 800 23-04-13, 06:45 PM
آخر رد: smss
  مشكلة في قاعدة البيانات؟ lلمبرمج 2 643 19-04-13, 12:51 AM
آخر رد: حريف برمجة
  طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات 0 83 منذ اقل من1 دقيقه مضت
آخر رد:

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


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