تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجو برمجة الكود فى webservice
#1
السلام عليكم رجاء برمجة الكوود فى ويب سيرفس
الكود يقوم بانشاء قاعدة بيانات باسم مستخدم وكلمة سر
ويمكن تسجيل عضو جديد
وتسجيل الدخول
PHP كود :
Public str As String "server=.\sqlexpress;initial catalog=pics;integrated security=true;"
    
Public con As New SqlConnection(str)

    Public Function 
isdbfound(ByVal constr As StringByVal dbname As String) As Boolean
        Dim mc 
As New SqlConnection(constr)
        
Dim a As New SqlCommand("select count(name) from master.dbo.sysdatabases where name='" dbname "'"mc)
        If 
mc.State ConnectionState.Closed Then
            mc
.Open()
        
End If

        If 
a.ExecuteScalar <= 0 Then
            
Return False
        
Else
            Return 
True
        End 
If
    
End Function
    
    Public Function 
istbfound(ByVal tb As String) As Boolean
        Dim m 
As New SqlCommand("select count(name) from sys.tables where name='" tb "'"con)
        If 
con.State ConnectionState.Closed Then
            con
.Open()
        
End If

        If 
m.ExecuteScalar <= 0 Then
            
Return False
        
Else
            Return 
True
        End 
If
    
End Function

    Function 
istusersfound(ByVal tb As String) As Boolean
        Dim m 
As New SqlCommand("select count(name) from sys.tables where name='" tb "'"con)
        If 
con.State ConnectionState.Closed Then
            con
.Open()
        
End If

        If 
m.ExecuteScalar <= 0 Then
            
Return False
        
Else
            Return 
True
        End 
If
    
End Function

    
Sub ctusers()
        If 
istusersfound("tusers") = False Then
            Dim i 
As New SqlCommand("create table tusers(tid int NOT NULL PRIMARY KEY identity,un varchar(200),ps varchar(200))"con)
            If 
con.State ConnectionState.Closed Then
                con
.Open()
            
End If
            Try
                
i.ExecuteNonQuery()
            Catch 
ex As Exception
                MsgBox
(Err.DescriptionMsgBoxStyle.Critical"")
            
End Try

        
End If
    
End Sub





    Sub cdb
()
        
Dim mcc As New SqlConnection("server=.\sqlexpress;integrated security=true;")
        If 
isdbfound("server=.\sqlexpress;integrated security=true;""pics") = False Then
            Dim cc 
As New SqlCommand("CREATE DATABASE pics"mcc)
            If 
mcc.State ConnectionState.Closed Then
                mcc
.Open()
            
End If
            
cc.ExecuteNonQuery()

        
End If

    
End Sub
    Sub ctb
()
        If 
istbfound("pic") = False Then
            Dim i 
As New SqlCommand("create table pic(tid int NOT NULL PRIMARY KEY identity,mgid varchar(200),mg varbinary(max))"con)
            If 
con.State ConnectionState.Closed Then
                con
.Open()
            
End If
            Try
                
i.ExecuteNonQuery()
            Catch 
ex As Exception
                MsgBox
(Err.DescriptionMsgBoxStyle.Critical"")
            
End Try

        
End If
    
End Sub


    
Function addme(ByVal un As TextBoxByVal ps As TextBox) As Boolean
        Dim cm 
As New SqlCommand("insert into tusers(un,ps) values(@un,@ps)"con)
        
cm.Parameters.AddWithValue("@un"un.Text)
        
cm.Parameters.AddWithValue("@ps"ps.Text)
        If 
con.State ConnectionState.Closed Then
            con
.Open()
        
End If
        Try
            
cm.ExecuteNonQuery()
            Return 
True
        
Catch ex As Exception
            
Return False
        End 
Try
    
End Function



    Function 
isok(ByVal un As TextBoxByVal ps As TextBox) As Boolean
        Dim cm 
As New SqlCommand("select count(un) from tusers where un=@un and ps=@ps"con)
        
cm.Parameters.AddWithValue("@un"un.Text)
        
cm.Parameters.AddWithValue("@ps"ps.Text)
        If 
con.State ConnectionState.Closed Then
            con
.Open()
        
End If
        Try
            If 
cm.ExecuteScalar <= 0 Then
                
Return False
            
Else
                Return 
True
            End 
If

        Catch 
ex As Exception
            
Return False
        End 
Try
    
End Function 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 107 18-02-17, 02:19 PM
آخر رد: Amrjamil
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 83 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 385 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 63 12-02-17, 08:06 PM
آخر رد: مساعدة
  مساعده في برمجة الداتا قرد فيو معتز الجازوي 2 88 01-02-17, 12:34 AM
آخر رد: معتز الجازوي
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 86 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] رجاء تصحيح الكود التالي dubai.eig 4 126 25-01-17, 03:02 PM
آخر رد: مساعدة
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 187 22-01-17, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 74 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 127 18-01-17, 05:25 PM
آخر رد: dubai.eig

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


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