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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 81 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 63 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 98 22-11-16, 02:38 PM
آخر رد: thevirus
  ارجو المساعدة في كود VB.NET 7 110 16-11-16, 03:20 AM
آخر رد: أبو عمر
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 201 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 99 10-11-16, 06:25 PM
آخر رد: أبو عمر
  اسف تم عمل 2 موضوع بالخطاء ارجو اذالة هذه الموضوع Mohamed20 0 58 02-11-16, 11:47 PM
آخر رد: Mohamed20
  كيف اضيف هذا الكود في module nabil.1710 6 127 01-11-16, 03:23 PM
آخر رد: silverlight
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 76 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra
  ممكن شرح هذا الكود؟ rafaag777 0 72 26-10-16, 10:18 AM
آخر رد: rafaag777

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


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