Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

rfid

[VB.NET] WM5.0 vs SQL server vs VS 2008

Recommended Posts

rfid

Viva,

Com o VB6.0:

- Fazer, via código, ligações ADO ao SQL 2000 é pacífico.

- Trabalhar com as tabelas e os registos, também é pacífico.

O meu problema, com o VB 2008:

- Preciso de código para aceder ao SQL 2000;

- Preciso de código para aceder às tabelas e trabalhar os registos.

A ideia é compilar o código para usar num PDA, com o WM 5.0, que irá aceder a um determinado servidor que tem o SQL SERVER 2000 instalado.

Obrigado,

AB

Share this post


Link to post
Share on other sites
karva

O código é o mesmo que usarias para uma aplicação Desktop, a diferença é que precisas de ter o Windows Mobile 5 SDK instalado no teu computador, e quando fazes um novo projecto, no tipo de projecto pões Smart Device em vez de Windows.

Exemplo:

17503.png


Proud LEIC-A@IST student!

Share this post


Link to post
Share on other sites
rfid

Obrigado pela resposta.

O código que uso em VB6.0 não funciona em VB2008.

É possível arranjar um exemplo de acesso ao SQL 2000, abrir tabela e colocar um registo numa textbox?

Pode, sff,  colocar em rar ou zip.

Obrigado,

AB

Share this post


Link to post
Share on other sites
rfid

Viva,

Uso o VB2008 para criar uma aplicação para WM5.0.

Pretendo fazer uma ligação ao SQL2000 e não consigo.

Podem-me ajudar?

Junto código e imagem de erro.

Obrigado.

Imports System.Data.SqlClient
Imports System.Data

Public Class Form1
    Protected connectionString As String = "data source = 10.0.0.4;database=HowToDemo;"

    Private Sub btnLigarDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLigarDB.Click

        Dim sqlStatement As String = "SELECT * FROM Utilizadores"

        lblStatus.Text = "Connecting to SQL Server"

        Try
            Dim connection As New SqlConnection(connectionString)
            Dim cmd As New SqlCommand(sqlStatement, connection)

            connection.Open()
            cmd.ExecuteNonQuery()
            connection.Close()

            lblStatus.Text = ""

            MsgBox("Ligação OK", MsgBoxStyle.OkOnly, "Database Status")
        Catch sqlExc As SqlException
            MsgBox(sqlExc.Message, MsgBoxStyle.OkOnly, "SQL Exception Error")
        Catch exc As Exception
            lblStatus.Text = ""
            MsgBox(exc.Message, MsgBoxStyle.OkOnly, "Falha na Ligação.")
        End Try
    End Sub

    Private Sub btnSair_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSair.Click
        Me.Close()
        Application.Exit()
    End Sub

End Class

Share this post


Link to post
Share on other sites
Tiago Salgado

Poe antes assim:

Protected connectionString As String = "data source = 10.0.0.4;Initial Catalog=HowToDemo;User Id=myUsername;Password=myPassword;"

ou

Protected connectionString As String = "data source = 10.0.0.4;Initial Catalog=HowToDemo;Integrated Security=SSPI;User ID=myDomain\myUsername;Password=myPassword;"

Share this post


Link to post
Share on other sites
rfid

Viva,

A mensagem de erro mantêm-se.

Nota: Se o meu projecto fosse para windows form funcionava, mas para windows mobile 5.0 a mensagem de erro mantêm-se.

Podem ajudar?

Obrigado.

Share this post


Link to post
Share on other sites
rfid

Nota: Os parâmetros: IP, o nome de utilizador e password garantidamente estão correctos.

Se ajudar saber, experimentei colocar:

Protected connectionString As String = "data source = 10.0.0.4;Initial Catalog=HowToDemo;User Id=sa;Password=;"

e depois:

Protected connectionString As String = "data source = 10.0.0.4;Initial Catalog=HowToDemo;User Id=ab;Password=xpto;"

Share this post


Link to post
Share on other sites
rfid

Recordo as versões que estou a usar:

  - SQL Server 2000

  - Visual Basic 2008 - Target Platform: Windows Mobile 5.0 Pocket PC SDK

Share this post


Link to post
Share on other sites
Asgorath

De certeza que o servidor a funcionar no ip que especificado? Não tens nenhum firewall a bloquear o acesso.

Podias usar o ms sql ce no teu pda.


"The Dark Side Clouds Everthing. Impossible To See The Future Is."My rig: Intel Core 2 Quad Q9450 | abit IP35P | 4G Kingston 800 Mhz | XFX GeForce 9800 GX2 1G ddr3 | 2X WD5000AAJS 500Gb Sata 2 | PSU 600W || Caixa El-Diablo | Creative XMod

Share this post


Link to post
Share on other sites
karva

E só uma coisa, tás a testar num PDA físico ou num emulador?

Ah, já sei porque é que não encontras,,, é porque o PDA do emulador não está ligado à tua rede.

Tens que usar um PDA físico para testar. Liga o PDA ao PC pelo ActiveSync, e quando fazes deploy, dizes que queres enviar para um dispositivo real, e aí em princípio deves ter tudo resolvido. ;)


Proud LEIC-A@IST student!

Share this post


Link to post
Share on other sites
rfid

Obrigado, de facto funciona.

Resta-me perguntar:

- como colocar o emulador a funcionar?

- como faço para criar um setup para o PDA?

- para que serve a linha de código: cmd.ExecuteNonQuery()

Muito obrigado,

AB

Share this post


Link to post
Share on other sites
karva

Para por o emulador a funcar em rede?

Acho que não dá.

Quanto à segunda, não sei.


Proud LEIC-A@IST student!

Share this post


Link to post
Share on other sites
rfid

O PDA tem acesso à internet via wireless.

A ligação à base de dados Não funciona com o PDA ligado ao PC nem desligado do PC (mas a aplicação corre em ambos os casos).

Obrigado.

Share this post


Link to post
Share on other sites
karva

Isso quer dizer que há um problema na ligação.

Verifica se o IP do PDA é atribuído por DHCP.


Proud LEIC-A@IST student!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.