Put Google's Pac Man Game On Your Web Site

Put Google's Pac Man Game On Your Web Site

StrZero no vbnet

'Declaro a variável strZeros com o número de zeros que faltam para o tamanho do campo (12)
Dim strZeros As String = New String("0", 12 - TextBox2.Text.Length)
'Concateno os zeros no início do campo
TextBox2.Text = strZeros & TextBox2.Text

Conexão com banco de dados

'Declaração de variáveis
Dim conn As SqlConnection = New SqlConnection("Data Source=;Initial Catalog=;User ID=;Password=;")
Dim cmd As SqlCommand
Dim dr As SqlDataReader
'Abre conexão, executa a query e guarda o resultado no DataReader
conn.Open()
cmd = New SqlCommand("SELECT nome, telefone FROM bar WHERE mulher and linda", conn)
dr = cmd.ExecuteReader
'Pequeno loop para listar o resultado
If dr.HasRows Then
'O read é obrigatório para preencher o dr e mover para o próximo registro
'Não precisa de movenext xD
Do While dr.Read
ListBox1.Items.Add(dr("nome") & " - " & dr("telefone"))
Loop
End If
'fecha conexão
conn.Close()

Trocar cursor do mouse no vbnet

Me.Cursor = Cursors.WaitCursor

Me.Cursor = Cursors.Default