تقييم الموضوع :
  • 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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 102 منذ 9 ساعة مضت
آخر رد: alsouf
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 21 منذ 10 ساعة مضت
آخر رد: D-Z
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 74 20-09-17, 04:00 PM
آخر رد: alsouf
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 801 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 113 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 192 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] رجاء دخول المحترفين فى برمجة الشبكات network 0 57 13-09-17, 05:45 AM
آخر رد: network
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 50 11-09-17, 12:58 PM
آخر رد: 0theghost0
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 0 59 09-09-17, 10:44 PM
آخر رد: aliomar333
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 163 06-09-17, 08:32 AM
آخر رد: gharib

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


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