Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

VB.net SQL Itp


Rekomendowane odpowiedzi

Opublikowano

Czy może zna ktoś jakiś hosting serwerów SQL.

Gdybym posiadał taki serwer SQL to była by możliwość połączenia go z Microsoft SQL Server Management Studio?

I  jeszcze takie pytanko czy w tym kodzie do logowanie z SQL jest możliwość ustawienia jakby
IP czyli że gdy mój komputer jest włączony można się zalogować(Chodzi mi o internet a nie tylko mój komputer) a jak jest wyłączony to się nie można zalogować.

Kod:

 

Imports System.Data.SqlClient
Public Class Login
    Dim con As New SqlConnection
    Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            con.ConnectionString = "Data Source=CHRIS-PC; Initial Catalog=Basel; Integrated Security=True"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text = Nothing Then
                MsgBox("Musisz wpisać nazwę użytkownika!", MsgBoxStyle.Exclamation, "Błąd!")
                If TextBox2.Text = Nothing Then
                    MsgBox("Musisz Wpisać hasło!", MsgBoxStyle.Exclamation, "Błąd!")
                End If
            End If

            Dim str As String = "Select username,password From users Where username='" & TextBox1.Text & "' and password ='" & TextBox2.Text & "'"
            Dim da As New SqlDataAdapter(str, con)
            Dim ds As New DataSet
            da.Fill(ds)
            If ds.Tables(0).Rows.Count > 0 Then
                Me.Hide()
                nextlog.Show()
            Else
                'MsgBox("Nazwa użytkownika lub hasło są niepoprawne", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo) '"3 błędy naraz"
                LabelError.Text = "Coś źle wpisałeś"
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...