Home
Assalamm....saya ndak bukak table baru dlm database menggunakan VB.NET dan ODBC.tetapi buat masa ni code dia x work.So, sy mintak panduan dan nasihat drpd user yg berpengalaman semua utk menambah baik code saya ini.Saya tertannya kenapa x nampak table baru dalam database postgresql?
Imports System
Imports System.Data
Imports System.Data.Odbc
Public Class Form1
Dim thisConnection As New OdbcConnection _
("dsn=MyOdbc")
Dim nonqueryCommand As OdbcCommand = thisConnection.CreateCommand()
Public sConnection As String = "DSN=PostgreSQL30;UID=tele;PWD=tiny;"
Public cnDB As New Odbc.OdbcConnection(sConnection)
Public dsDB As New DataSet
Public adDB As New Odbc.OdbcDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
nonqueryCommand.CommandText = "CREATE TABLE mytable " & _
"(MyName VARCHAR (30), MyNumber INTEGER)"
'Console.WriteLine("Executing {0}", _
' nonqueryCommand.CommandText)
'Console.WriteLine("Number of rows affected : {0}", _
' nonqueryCommand.ExecuteNonQuery())
Try
cnDB.Open()
'adDB.SelectCommand = New Odbc.OdbcCommand(" CREATE TABLE sensor_result_test ")
MsgBox("Connect to Database", MsgBoxStyle.Information, "Success")
cnDB.Close()
Catch ex As Exception
MsgBox("Connection to database Failed", MsgBoxStyle.Critical, "Action Failed")
End Try
End Sub
End Class
fail dia.
http://rapidshare.com/files/268975860/BuiltNewtables1.rar.html
sekian terima kasih.
Imports System
Imports System.Data
Imports System.Data.Odbc
Public Class Form1
Dim thisConnection As New OdbcConnection _
("dsn=MyOdbc")
Dim nonqueryCommand As OdbcCommand = thisConnection.CreateCommand()
Public sConnection As String = "DSN=PostgreSQL30;UID=tele;PWD=tiny;"
Public cnDB As New Odbc.OdbcConnection(sConnection)
Public dsDB As New DataSet
Public adDB As New Odbc.OdbcDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
nonqueryCommand.CommandText = "CREATE TABLE mytable " & _
"(MyName VARCHAR (30), MyNumber INTEGER)"
'Console.WriteLine("Executing {0}", _
' nonqueryCommand.CommandText)
'Console.WriteLine("Number of rows affected : {0}", _
' nonqueryCommand.ExecuteNonQuery())
Try
cnDB.Open()
'adDB.SelectCommand = New Odbc.OdbcCommand(" CREATE TABLE sensor_result_test ")
MsgBox("Connect to Database", MsgBoxStyle.Information, "Success")
cnDB.Close()
Catch ex As Exception
MsgBox("Connection to database Failed", MsgBoxStyle.Critical, "Action Failed")
End Try
End Sub
End Class
fail dia.
http://rapidshare.com/files/268975860/BuiltNewtables1.rar.html
sekian terima kasih.
