VB.NET primjer baze podataka za SMS

Pogledajte kako dodati SMS funkcionalnost u svoju VB.NET aplikaciju. Za rješenje će vam trebati poslužitelj baze podataka koji pohranjuje poslane i primljene poruke. Prihvaćeni su MS SQL, MS SQL Express, MySQL, Access, Oracle. Izvorni kod je dostupan. Možete ga preuzeti i urediti.

Kako dodati SMS funkcionalnost u VB.NET (Brzi koraci)

Da biste dodali SMS funkcionalnost u VB.NET:

1. Postavite Ozeki SMS Gateway
2. Testirajte slanje SMS-a
3. Preuzmite Microsoft SQL Express
4. Instalirajte Microsoft Visual Studio
5. Kreirajte korisnika baze podataka i tablice
6. Konfigurirajte korisnika baze podataka u Ozekiju
7. Izmijenite VB.NET kod
8. Umetnite SMS u bazu podataka

Preuzimanje: vb.net-sms-example-sql.zip (70 Kb)

Uvod

Rješenje se sastoji od 3 različita dijela (Slika 1). Ozeki SMS Gateway, SQL baza podataka i vaša VB.NET aplikacija. Provjerite je li Ozeki SMS Gateway povezan s SQL bazom podataka. Možete pronaći mnogo tutorijala o povezivanju na stranici SMS iz SQL baze podataka. Ako je to učinjeno, molimo provjerite može li VB.NET čitati i pisati zapise u bazi podataka.

Slika pokazuje točno ono što je opisano u prošlom odlomku. Možete slati SMS poruke umetanjem novog zapisa pomoću VB.NET aplikacije. Provjerite SQL tablicu kako biste vidjeli jesu li novi zapisi umetnuti u nju. Ove poruke bi trebale biti automatski poslane. Provjerite radi li VB.net aplikacija s bazom podataka kako za čitanje tako i za umetanje zapisa. Čitanje zapisa je važno jer je to način za čitanje dolaznih poruka.

Preduvjeti

Glavni softver operacije je Ozeki SMS Gateway koji možete dobiti u svoju Ozeki 10 aplikaciju. Ovaj softver može povezati vaše računalo s mobilnom mrežom kao što može povezati vaše računalo s bilo kojim od sljedećih poslužitelja baze podataka:

• slanje SMS-a iz Microsoft SQL Express
• slanje SMS-a iz Accessa
• slanje SMS-a iz MySQL
• slanje SMS-a iz Oracle
• slanje SMS-a iz Postgres
• slanje SMS-a iz SAP SQL Anywhere

Također će vam trebati C# ili Visual Basic razvojno okruženje, kao što je Microsoft Visual Studio. Ako to još niste učinili, molimo preuzmite VB sms primjer projekta. Da sumiramo, evo potpunog popisa potrebnog softvera:

• Ozeki SMS Gateway
• Poslužitelj baze podataka (MS SQL, SQL Express, Access, MySQL, Oracle, Postgres, SAP SQL Anywhere, itd.)
• Microsoft Visual Studio
  
• vb.net-sms-example-sql.zip (70 Kb)

Koristite sljedeće korake za izradu funkcionalnog rješenja. U ovom primjeru vidjet ćete rješenje s Microsoft SQL Express s primjerima baze podataka spremnim za kopiranje i lijepljenje. Molimo preuzmite i instalirajte Ozeki 10 prije nego što nastavite s ovim koracima. Ručno testirajte slanje SMS-a kako biste provjerili možete li slati i primati SMS poruke s Ozeki 10. Ako je test bio uspješan, moći ćete slati i primati SMS poruke iz grafičkog korisničkog sučelja VB.net aplikacije. Provjerite je li poruka poslana pomoću dnevnika događaja Ozeki 10.

Ako ne koristite SQL Express, kopirajte kod za izradu tablice s jedne od ovih opcija SQL servera.

Korak 1 - Izradite korisnika baze podataka i tablice

Molimo instalirajte Microsoft SQL Express i Microsoft Visual Studio kako biste mogli pratiti ove korake. Izradite tablice baze podataka na vašem Microsoft SQL Express poslužitelju baze podataka kopiranjem i lijepljenjem koda 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

Korak 2 - Povežite Ozeki SMS Gateway s vašom bazom podataka

Sada je vrijeme da izradite korisnika baze podataka u Ozeki 10. Nakon što je korisnik izrađen, odaberite 'SQL server' i kopirajte i zalijepite sljedeći niz za povezivanje (Kod 2). Ne zaboravite koristiti vlastiti naziv baze podataka, korisnički ID i lozinku.

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

Korak 3 - Izmijenite VB.NET kod za povezivanje s Ozeki 10

Otvorite primjer projekta u Visual Studiju i uredite izvorni kod ako je potrebno. U kodu 3 trebali biste navesti iste parametre za povezivanje korištene gore u kodu 2. VB.NET parametri dodani su u niz za povezivanje 'myConnection' (Kod 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")

Korak 4 - Umetnite SMS zapis u bazu podataka

Sljedeći kod umetne sadržaj tekstualnog okvira iz VB.NET primjera GUI-a u bazu podataka (Kod 4).

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

Dim mySqlCommand As New _ 
SqlCommand(mySqlQuery, myConnection)

Ovaj kod se može izvršiti samo ako se VB.NET aplikacija može povezati s bazom podataka. Vrijednosti koje se mogu umetnuti mogu se navesti u GUI-u aplikacije (Slika 2). Nakon upisa broja primatelja i teksta poruke, kliknite 'Umetni' i korisnik baze podataka Ozeki 10 proslijedit će umetnutu poruku primatelju nakon što pronađe zapis u bazi podataka.

Konačno, pokrenut će se slijed koda na dnu klase (Kod 5). Pozvat će se ove 3 metode. One će se povezati s bazom podataka i umetnuti zapis poruke SMS-a za slanje te zatvoriti vezu.

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