Příklad databáze SMS v VB.NET

Podívejte se, jak přidat funkcionalitu SMS do vaší aplikace v VB.NET. Pro řešení budete potřebovat databázový server, který ukládá odeslané a přijaté zprávy. Podporovány jsou MS SQL, MS SQL Express, MySQL, Access, Oracle. Zdrojový kód je k dispozici. Můžete si jej stáhnout a upravit.

Jak přidat funkcionalitu SMS do VB.NET (Rychlé kroky)

Pro přidání funkcionality SMS do VB.NET:

1. Nastavte Ozeki SMS Gateway
2. Otestujte odesílání SMS
3. Stáhněte Microsoft SQL Express
4. Nainstalujte Microsoft Visual Studio
5. Vytvořte databázového uživatele a tabulky
6. Nakonfigurujte databázového uživatele v Ozeki
7. Upravte kód v VB.NET
8. Vložte SMS do databáze

Stáhnout: vb.net-sms-example-sql.zip (70 Kb)

Úvod

Řešení se skládá ze 3 různých částí (Obrázek 1). Ozeki SMS Gateway, SQL databáze a vaše aplikace v VB.NET. Zkontrolujte, zda je Ozeki SMS Gateway připojeno k SQL databázi. Najdete mnoho návodů na připojení na stránce SMS z SQL databáze. Pokud je to hotovo, prosím zkontrolujte, zda VB.NET umí číst a zapisovat záznamy do databáze.

Obrázek přesně ukazuje to, co bylo popsáno v předchozím odstavci. Můžete odesílat SMS zprávy vložením nového záznamu pomocí aplikace v VB.NET. Zkontrolujte SQL tabulku, zda byly do ní vloženy nové záznamy. Tyto zprávy by měly být automaticky odeslány. Zkontrolujte, zda aplikace VB.NET pracuje s databází jak čtením, tak vkládáním záznamů. Čtení záznamů je důležité, protože tímto způsobem čtete příchozí zprávy.

Požadavky

Hlavním softwarem operace je Ozeki SMS Gateway, který můžete získat do vaší aplikace Ozeki 10. Tento software může připojit váš počítač k mobilní síti a také k libovolnému z následujících databázových serverů:

• odesílání SMS z Microsoft SQL Express
• odesílání SMS z Accessu
• odesílání SMS z MySQL
• odesílání SMS z Oracle
• odesílání SMS z Postgres
• odesílání SMS z SAP SQL Anywhere

Budete také potřebovat vývojové prostředí pro C# nebo Visual Basic, jako je Microsoft Visual Studio. Pokud jste tak ještě neučinili, prosím stáhněte si příklad projektu SMS v VB. Pro shrnutí, zde je úplný seznam potřebného softwaru:

• Ozeki SMS Gateway
• Databázový server (MS SQL, SQL Express, Access, MySQL, Oracle, Postgres, SAP SQL Anywhere, atd.)
• Microsoft Visual Studio
  
• vb.net-sms-example-sql.zip (70 Kb)

Použijte následující kroky k vytvoření funkčního řešení. V tomto příkladu uvidíte řešení s Microsoft SQL Express s databázovými příklady připravenými ke zkopírování. Nejprve stáhněte a nainstalujte Ozeki 10, než budete pokračovat v těchto krocích. Ručně otestujte odesílání SMS, abyste ověřili, zda můžete odesílat a přijímat SMS zprávy s Ozeki 10. Pokud byl test úspěšný, budete moci odesílat a přijímat SMS zprávy z grafického uživatelského rozhraní aplikace VB.net. Ověřte, zda byla zpráva odeslána, pomocí protokolů událostí Ozeki 10.

Pok nepoužíváte SQL Express, zkopírujte kód pro vytvoření tabulky z jedné z těchto možností SQL serveru.

Krok 1 - Vytvořte databázového uživatele a tabulky

Nainstalujte Microsoft SQL Express a Microsoft Visual Studio, abyste mohli následovat tyto kroky. Vytvořte databázové tabulky na vašem serveru Microsoft SQL Express zkopírováním a vložením kódu 1.

create database ozeki
GO

use ozeki
GO

CREATE TABLE ozekimessagein (
 id int IDENTITY (1,1),
 sender varchar(30),
 receiver varchar(30),
 msg varchar(160),
 senttime varchar(100),
 receivedtime varchar(100),
 operator varchar(30),
 msgtype varchar(30),
 reference varchar(30),
);

CREATE TABLE ozekimessageout (
 id int IDENTITY (1,1),
 sender varchar(30),
 receiver varchar(30),
 msg varchar(160),
 senttime varchar(100),
 receivedtime varchar(100),
 operator varchar(100),
 msgtype varchar(30),
 reference varchar(30),
 status varchar(30),
 errormsg varchar(250)
);
GO
    
sp_addLogin 'ozekiuser', 'ozekipass'
GO
  
sp_addsrvrolemember 'ozekiuser', 'sysadmin'
GO

Krok 2 - Připojte Ozeki SMS Gateway k vaší databázi

Nyní je čas vytvořit databázového uživatele v Ozeki 10. Po vytvoření uživatele vyberte 'SQL server' a zkopírujte následující připojovací řetězec (Kód 2). Nezapomeňte použít vlastní název databáze, uživatelské ID a heslo.

Server=.\SQLEXPRESS; Database=ozeki; UID=ozekiuser; PWD=ozekipass;

Krok 3 - Upravte kód VB.NET pro připojení k Ozeki 10

Otevřete příkladový projekt v Visual Studiu a v případě potřeby upravte zdrojový kód. V kódu 3 byste měli zadat stejné připojovací parametry, které byly použity výše v kódu 2. Parametry VB.NET jsou přidány do připojovacího řetězce 'myConnection' (Kód 3).

Dim dbUsername As String = "ozekiuser"
Dim dbPassword As String = "ozekipass"
Dim database As String = "ozeki"

Dim myConnection As _
New SqlConnection( _
"Server=.\SQLEXPRESS;User ID=" _
& dbUsername _
& ";password=" _
& dbPassword _
& ";Database=" _
& database _
& ";Persist Security Info=True")

Krok 4 - Vložte záznam SMS do databáze

Následující kód vloží obsah textového pole z grafického rozhraní příkladu VB.NET do databáze (Kód 4).

Dim mySqlQuery As String = _ 
"INSERT INTO ozekimessageout " _
& "(receiver,msg,status) " _
& "VALUES ('" & tbReceiver.Text _
& "', '" & tbMessage.Text & "', 'send');"

Dim mySqlCommand As New _ 
SqlCommand(mySqlQuery, myConnection)

Tento kód lze spustit pouze v případě, že se aplikace VB.NET může připojit k databázi. Hodnoty k vložení lze zadat v grafickém rozhraní aplikace (Obrázek 2). Po zadání čísla příjemce a textu zprávy klikněte na 'Vložit' a databázový uživatel Ozeki 10 přepošle vloženou zprávu příjemci po nalezení záznamu v databázi.

Nakonec se spustí sekvence kódu na konci třídy (Kód 5). Budou volány tyto 3 metody. Připojí se k databázi, vloží záznam SMS zprávy k odeslání a uzavřou připojení.

myConnection.Open()

mySqlCommand.ExecuteNonQuery()

myConnection.Close()

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub bSend_Click( _ 
  ByVal sender As System.Object, _ 
  ByVal e As System.EventArgs)
    
  Handles bSend.Click
  Try
  Dim dbUsername As String = "ozekiuser"
  Dim dbPassword As String = "ozekipass"
  Dim database As String = "ozeki"
 	
  Dim myConnection As New SqlConnection( _
	    "Server=.\SQLEXPRESS;User ID=" _
		& dbUsername _
		& ";password=" _
		& dbPassword _
		& ";Database=" _
		& database _
		& ";Persist Security Info=True")

Dim mySqlQuery As String = "INSERT INTO " _
& "ozekimessageout(receiver,msg,status) " _
& "VALUES('" & tbReceiver.Text & "', '" _
& tbMessage.Text & "', 'send');"
	
  Dim mySqlCommand As New _ 
  SqlCommand(mySqlQuery, myConnection)
	
  myConnection.Open()
	
  mySqlCommand.ExecuteNonQuery()

  myConnection.Close()


  Catch ex As Exception
    MessageBox.Show(ex.Message)
  End Try
End Sub
End Class