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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] امثلة علي برمجة RFID MOHAMMED ALZWI 0 208 04-12-23, 11:29 AM
آخر رد: MOHAMMED ALZWI

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


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