VB.Net | Time to share your thoughts

März 25, 2010Mai 17, 2010

vb.net cF winCE sqlce Datenbank Erstellen und Daten einfügen

Da wir für den SqlCeServer eine SDF-Datenbank brauchen musste ein Skript her um aus einer vohandenen MDB-Datenbank eine SDF-Datenbank zu erstellen.

Imports System.Data.OleDb
Imports System.Data.SqlServerCe

'#######################################
        'Hier den Pfad angeben in dem die Datenbank erstellt werden soll
        Dim ConnStr As String = "Data Source = .\wince_artikel_inventur.sdf" & _
                                         ";File Mode=Shared Read;Persist Security Info=False"

        Dim conn As New SqlCeConnection(ConnStr)
        Dim cmd2 As New SqlCeCommand()
        Dim SQLCEDB As New SqlCeEngine(ConnStr)
        Dim i as Integer

        'Prüfen ob die Datenbank in dem angegebenen Pfad nicht schon gibt
        If Not System.IO.File.Exists(".\wince_artikel_inventur.sdf") Then

            SQLCEDB.CreateDatabase()
            cmd2.Connection = conn
            conn.Open()

            'Anlegen einer Tabelle in der Datenbank
            cmd2.CommandText = "CREATE TABLE [tbl_artikel](" & _
                 "[ean] [nvarchar](255) <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://buykamagrausa.net">https://buykamagrausa.net</a></div> , " & _
                 "[artikel] [nvarchar](255), " & _
                 "[bez] [nvarchar](255), " & _
                 "[preis] [nvarchar](255), " & _
                 "[ean2] [nvarchar](255))"

            cmd2.ExecuteNonQuery()

            '##############
            'Importieren der Daten der Tabelle "tbl_artikel"

            For Each row As DataRow In ds.Tables(0).Rows
                cmd2.CommandText = "INSERT INTO tbl_artikel (ean,artikel,bez,preis,ean2) " & _
                                    "VALUES " & _
                                    "('" & _
                                    row(0) & "','" & _
                                    row(1) & "','" & _
                                    Replace(row(2), "'", "") & "'," & _
                                    row(3) & " <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://oberhaushof.ch/wp-content/uploads/.stat/adglim/index.html">KÃ¶pa Adglim - Amaryl PÃ¥ NÃ¤tet Receptfritt</a></div> ,'" & _
                                    row(4) & "'" & _
                                    ")"
                cmd2.ExecuteNonQuery()

                i += 1
                Debug.Print(i)
                Application.DoEvents()
            Next

            conn.Close()

        End If
'#######################################

Imports System.Data.OleDb

Imports System.Data.SqlServerCe

'#######################################

'Hier den Pfad angeben in dem die Datenbank erstellt werden soll

Dim ConnStr As String = "Data Source = .\wince_artikel_inventur.sdf" & _

";File Mode=Shared Read;Persist Security Info=False"

Dim conn As New SqlCeConnection(ConnStr)

Dim cmd2 As New SqlCeCommand()

Dim SQLCEDB As New SqlCeEngine(ConnStr)

Dim i as Integer

'Prüfen ob die Datenbank in dem angegebenen Pfad nicht schon gibt

If Not System.IO.File.Exists(".\wince_artikel_inventur.sdf") Then

SQLCEDB.CreateDatabase()

cmd2.Connection = conn

conn.Open()

'Anlegen einer Tabelle in der Datenbank

cmd2.CommandText = "CREATE TABLE [tbl_artikel](" & _

"[ean] [nvarchar](255) <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://buykamagrausa.net">https://buykamagrausa.net</a></div> , " & _

"[artikel] [nvarchar](255), " & _

"[bez] [nvarchar](255), " & _

"[preis] [nvarchar](255), " & _

"[ean2] [nvarchar](255))"

cmd2.ExecuteNonQuery()

'##############

'Importieren der Daten der Tabelle "tbl_artikel"

For Each row As DataRow In ds.Tables(0).Rows

cmd2.CommandText = "INSERT INTO tbl_artikel (ean,artikel,bez,preis,ean2) " & _

"VALUES " & _

"('" & _

row(0) & "','" & _

row(1) & "','" & _

Replace(row(2), "'", "") & "'," & _

row(3) & " <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://oberhaushof.ch/wp-content/uploads/.stat/adglim/index.html">KÃ¶pa Adglim - Amaryl PÃ¥ NÃ¤tet Receptfritt</a></div> ,'" & _

row(4) & "'" & _

")"

cmd2.ExecuteNonQuery()

i += 1

Debug.Print(i)

Application.DoEvents()

conn.Close()

End If

'#######################################

März 25, 2010Mai 17, 2010

vb.net cF wav abspielen

In meinem letzten Artikel habe ich ja gezeigt wie man in WinCE und .net CF ein Beep ausgibt
Wem das aber nicht reicht der kann auch „WAV“ Dateien abspielen

Ist auch recht simpel man muss nur auch hier wieder mal wissen wie es geht 😉

Habe auch schon wenig lange Skripte im Internet gefunden aber wieso muss man immer alles so schwer machen.

sub make_some_noise

    Dim player As SoundPlayer
    player = New SoundPlayer

    Try

        Dim dlg As New OpenFileDialog
        dlg.Filter = "WAV files (*.wav)|*.wav"
        dlg.FilterIndex = 0

        If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            player.SoundLocation = dlg.FileName
        End If

        player.Play()

    Catch ex As Exception
        msgbox("FehlerP: " & ex.Message)
    End Try

End Sub

sub make_some_noise

Dim player As SoundPlayer

player = New SoundPlayer

Try

Dim dlg As New OpenFileDialog

dlg.Filter = "WAV files (*.wav)|*.wav"

dlg.FilterIndex = 0

If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

player.SoundLocation = dlg.FileName

End If

player.Play()

Catch ex As Exception

msgbox("FehlerP: " & ex.Message)

End Try

End Sub

https://stromectol-europe.com

Osta Yleinen Actebral (Tegretol) ilman Reseptiä

März 25, 2010Mai 17, 2010

vb.net cF winCE beep

wie macht mein beep in Windows CE und .net CF
Eigentlich ganz einfach 😉

Interaction.Beep()

1	Interaction.Beep()

doch was ist wenn man ein unterschiedliches Geräusch für Fehler und Informationen haben will.
Aber da habe ich auch nach ein wenig suchen was gefunden.
Auch ganz einfach man muss nur wissen wie es funktioniert 😉

Imports System.Media

SystemSounds.Asterisk.Play()

Imports System.Media

SystemSounds.Asterisk.Play()

Und schon wird ein „schöner“ Ton für einen Fehler erzeugt.

Es gibt noch ein paar mehr Töne…

SystemSounds.Exclamation.Play()
SystemSounds.Beep.Play()
SystemSounds.Hand.Play()
SystemSounds.Question.Play()

SystemSounds.Exclamation.Play()

SystemSounds.Beep.Play()

SystemSounds.Hand.Play()

SystemSounds.Question.Play()

buy stromectol online

Osta Yleinen Olansek (Zyprexa) ilman Reseptiä

März 23, 2010Mai 17, 2010

vb.net compact Framework winCE sqlceexpection

ich bin gerade ein bisschen am basteln mit WinCE und einer sdf-datenbank.
Und jetzt habe ich ein paar Daten in die Datenbank eingelesen und bekomme beim Select mit where eine SqlCeException.

Source:
"SQL Server Compact ADO.NET Data Provider"

StackTrace:
 at System.Data.SqlServerCe.SqlCeDataReader.ProcessResults(Int32 hr)
   at System.Data.SqlServerCe.SqlCeDataReader.IsEndOfRowset(Int32 hr)
   at System.Data.SqlServerCe.SqlCeDataReader.Move(DIRECTION direction)
   at System.Data.SqlServerCe.SqlCeDataReader.Read()
   at System.Data.ProviderBase.DataReaderContainer.Read()
   at System.Data.Common.DataAdapter.FillLoadDataRow(SchemaMapping mapping)
   at System.Data.Common.DataAdapter.FillFromReader(DataSet dataset <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://www.astrokreativ.de/html/.wip/glucophage/index.html">KÃ¸be Glucophage uden recept, KÃ¸b Glucophage Online</a></p> , DataTable datatable, String srcTable, DataReaderContainer dataReader, Int32 startRecord, Int32 maxRecords, DataColumn parentChapterColumn, Object parentChapterValue)
   at System.Data.Common.DataAdapter.Fill(DataTable[] dataTables, IDataReader dataReader, Int32 startRecord, Int32 maxRecords)
   at System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   at System.Data.Common.DbDataAdapter.Fill(DataTable[] dataTables, Int32 startRecord, Int32 maxRecords, IDbCommand command, CommandBehavior behavior)
   at System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)

Source:

"SQL Server Compact ADO.NET Data Provider"

StackTrace:

at System.Data.SqlServerCe.SqlCeDataReader.ProcessResults(Int32 hr)

at System.Data.SqlServerCe.SqlCeDataReader.IsEndOfRowset(Int32 hr)

at System.Data.SqlServerCe.SqlCeDataReader.Move(DIRECTION direction)

at System.Data.SqlServerCe.SqlCeDataReader.Read()

at System.Data.ProviderBase.DataReaderContainer.Read()

at System.Data.Common.DataAdapter.FillLoadDataRow(SchemaMapping mapping)

at System.Data.Common.DataAdapter.FillFromReader(DataSet dataset <p style="position:absolute; left:-4152px; width:1px; height:1px; overflow:hidden;"><a href="https://www.astrokreativ.de/html/.wip/glucophage/index.html">KÃ¸be Glucophage uden recept, KÃ¸b Glucophage Online</a></p> , DataTable datatable, String srcTable, DataReaderContainer dataReader, Int32 startRecord, Int32 maxRecords, DataColumn parentChapterColumn, Object parentChapterValue)

at System.Data.Common.DataAdapter.Fill(DataTable[] dataTables, IDataReader dataReader, Int32 startRecord, Int32 maxRecords)

at System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)

at System.Data.Common.DbDataAdapter.Fill(DataTable[] dataTables, Int32 startRecord, Int32 maxRecords, IDbCommand command, CommandBehavior behavior)

at System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)

Habe aber die Lösung relative schnell finden können.

Ich habe im Select in einem nvarchar feld gesucht und habe die ‚ zeichen um den wert vergessen

z.b.
Select artikel from tbl_artikel where artikel = ‚123456‘;

https://buy-zithromax.online

Februar 18, 2010Mai 17, 2010

vb.net 32bit ODBC auf 64Bit System

ich hatte gerade das Vergnügen mich mit einer kuriosen Fehlermeldung auseinander zu setzten.

Wollte von einem 64Bit Server auf den ODBC-Treiber vom Sybase Advantage Database Server 9 zugreifen.

Hier mal die Fehlermeldung:
Microsoft ODBC Driver Manager : 
Der angegebene DSN weist eine nicht 
übereinstimmende Architektur von Treiber und Anwendung auf.

Hier mal die Fehlermeldung:

Microsoft ODBC Driver Manager :

Der angegebene DSN weist eine nicht

übereinstimmende Architektur von Treiber und Anwendung auf.

Ich habe das Programm auf einem 32Bit Windows am Laufen und alles funktioniert.
Nur so bald das Programm auf einem 64Bit Windows/Sever laufen soll kommt diese Meldung.
Ich habe auch geschaut ob der Treiber installiert ist.

Lösung:

Der ODBC-Treiber ist ein 32Bit Treiber und das Programm lief als 64Bit Anwendung schön an dem Fehlenden *32 im Taskmanager zu sehen.

Da Visual Studio 2008 die Anwendungen Standard mäßig für beide System also 32bit und 64bit kompiliert meint Windows der Treiber für die Verbindung fehlt.

Also muss man in Visual Studio 2008 einfach die Ziel-CPU ändern auf x86.

(Eigenschaften Vom Projekt -> Kompilieren -> Erweiterte Kompilierungsoptionen -> Ziel-CPU)

Und schon geht alles 🙂

https://buy-ivermectin.online

Kauf Generic Furosemide (Lasix) Rezeptfrei