|
Imports MySql.Data.MySqlClient
Public Class sql
Protected Friend conn As MySqlConnection
Protected Friend data As DataTable
Protected Friend da As MySqlDataAdapter
Protected Friend cb As MySqlCommandBuilder
Protected Friend _database As String = "crawler"
Protected Friend _table_name As String '= "url_image"
Protected Friend _table_structure '= " urlhash char(32) not null unique, url varchar(250) not null unique, state int(2) not null , crawl_date datetime ,backlink int(3) not null ,priority int(1) not null "
Protected Friend _host As String = "localhost"
Protected Friend _username As String = "root"
Protected Friend _password As String = "root"
Protected Sub create_connection()
Dim connStr As String
connStr = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", _host, _username, _password)
conn = New MySqlConnection(connStr)
conn.Open()
Console.WriteLine("LinkManger::create_connection()->successfull")
End Sub
Protected Function get_Reader(ByVal command As String) As MySqlDataReader
Dim reader As MySqlDataReader
Dim cmd As New MySqlCommand(command, conn)
reader = cmd.ExecuteReader()
Return reader
End Function
Protected Function _db_exits(ByVal name As String) As Boolean
Dim reader As MySqlDataReader = get_Reader("show databases;")
Dim _dbexit As Boolean = False
While reader.Read()
Try
If name = reader.GetString(0) Then
_dbexit = True
Exit While
End If
Catch ex As Exception
End Try
End While
reader.Close()
Return _dbexit
End Function
Protected Function _table_exists(ByVal name As String) As Boolean
Dim reader As MySqlDataReader = get_Reader("show tables;")
Dim _table As Boolean = False
While reader.Read()
If name = reader.GetString(0) Then
_table = True
Exit While
End If
End While
reader.Close()
Return _table
End Function
Protected Sub create_database(ByVal name As String)
get_Reader(String.Format("create database {0} ;", name)).Close()
Console.WriteLine("LinkManger::create_database()->sucessfull ? name= " + name)
End Sub
Protected Sub create_table(ByVal name As String, ByVal str As String)
get_Reader(String.Format("create table {0} ({1}) ;", name, str)).Close()
Console.WriteLine("LinkManger::create_table()->sucessfull ? name= " + name.PadRight(5) + str)
End Sub
Private Sub create_enviroment()
If _db_exits(_database) Then
conn.ChangeDatabase(_database)
If Not _table_exists(_table_name) Then
create_table(_table_name, _table_structure)
End If
Else
create_database(_database)
conn.ChangeDatabase(_database)
create_table(_table_name, _table_structure)
End If
End Sub
Protected Sub load()
create_connection()
create_enviroment()
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I just love coding. But due to my studies it became very tough for me to manage both.