将VB连接到我的oracle DB [英] Connecting VB to my oracle DB
问题描述
您好。我有以下简单的数据库：
CREATE TABLE MiamiIslandResorts（
ID number（2），
ResortName varchar2（30），
ResortRating varchar2（15），
主键（ID））;
插入MiamiIslandResorts（id，ResortName，ResortRating）值（1，'棕榈泉度假村'，'5星'）;
插入MiamiIslandResorts（id，ResortName， ResortRating）值（2，'Beaches Resorts'，'3 stars'）;
插入MiamiIslandResorts（id，ResortName，ResortRating）值（3，'Sands Resorts'，'5 stars'）;
插入MiamiIslandResorts（id，ResortName，ResortRating）值（4，'群岛度假村'，'4星'）;
插入MiamiIslandResorts（id，ResortName，ResortRating ）值（5，'钻石度假村'，'5星'）;
插入MiamiIslandResorts（id，ResortName，ResortRating）值（6，'Tropical Springs Resorts'，'4 stars'）; <无线电通信/>
插入MiamiIslandResorts（id，ResortName，ResortRating）值（7，'Island Paridise Resorts'，'3 stars'）;
插入MiamiIslandResorts（id，ResortName，ResortRating）价值观（8，'Paridise Resorts'，'5星'）;
创建Table RentalCarAgencies （
身份证号码（2），
代理商varchar2（25），
AgencyRating varchar2（15），
主键（ID））;
插入RentalCarAgencies（ID，Agency，AgencyRating）值（1，'Avis'，'4星'）;
插入RentalCarAgencies（ID，Agency，AgencyRating）值（2，'企业'，'4星'）;
插入RentalCarAgencies（ID，Agency，AgencyRating）值（ 3，'预算'，'4星'）;
插入RentalCarAgencies（ID，Agency，AgencyRating）值（4，'美元'，'2星'）;
插入RentalCarAgencies（ID，Agency，AgencyRating）值（5，'Hertz'，' 5星'）;
创建Table RentalCarTypes（
ID number（2），
CarType varchar2（20），
主键（ID））;
插入RentalCarTypes（ID，CarType）值（1，'经济'）;
插入RentalCarTypes（ID，CarType）值（2，'Compact'）;
插入RentalCarTypes（ID，CarType）值（3，'中型轿车'）;
插入RentalCarTypes（ID，CarType）值（4，'大型轿车'）;
插入RentalCarTypes（ID， CarType）值（5，'SUV'）;
插入RentalCarTypes（ID，CarType）值（6，'皮卡车'）;
插入RentalCarTypes（ID ，CarType）值（7，'Mini Van'）;
插入RentalCarTypes（ID，CarType）值（8，'12 Passanger van'）;
插入RentalCarTypes（ID，CarType）值（9，'经济'）;
创建表月（
身份证号码（2），
M. onth varchar2（25），
主键（ID））;
插入月份（ID，MONTH）值（1，' 1月'）;
插入月（ID，MONTH）值（2，'2月'）;
插入月（ID，MONTH）值（3，' 3月'）;
插入月（ID，MONTH）值（4，'4月'）;
插入月（ID，MONTH）值（5，' May'）;
插入月份（ID，MONTH）值（6，'六月'）;
插入月份（ID，MONTH）值（7，' 7月'）;
插入月（ID，MONTH）值（8，'8月'）;
插入月（ID，MONTH）值（9，' 9月'）;
插入月（ID，MONTH）值（10，'10月'）;
插入月（ID，MONTH）值（11，' 11月'）;
插入月（ID，MONTH）值（12，'12月'）;
CREATE TABLE TypeOfView（
ID号（2），
ViewType varchar2（20），
主键（ID））;
插入TypeofView（ID，ViewType）值（1，'海景'）;
insert进入TypeofView（ID，ViewType）值（2，'内部视图'）;
插入TypeofView（ID，ViewType）值（3，'阳台视图'）;
插入TypeofView（ID，ViewType）值（4，'Penthouse View'）;
CREATE TABLE ReasonForStay（
ID号码（2），
StayType varchar2（25），
主键（ID））;
插入ReasonForStay（ID，StayType）值（1，'Business'）;
插入ReasonForStay（ID，StayType）值（2，'Personal'）;
插入ReasonForStay（ID，StayType）值（3，'假期'）;
插入ReasonForStay（ID，StayType）值（4，'Wedding'）;
插入ReasonForStay（ID，StayType）值（5，'Anniversary'）;
插入ReasonForStay（ID，StayType）值（6，'Reunion'） ;
CREATE TABLE NumberOfGuests（
Id number（2） ，
TotalNumber varchar2（20），
主键（ID））;
插入NumberOfGuests（ ID，TotalNumber）值（1，'1'）;
插入NumberOfGuests（ID，TotalNumber）值（2，'2'）;
插入NumberOfGuests（ ID，TotalNumber）值（3，'3'）;
插入NumberOfGuests（ID，TotalNumber）值（4，'4'）;
插入NumberOfGuests（ ID，TotalNumber）值（5，'5'）;
插入NumberOfGuests（ID，TotalNumber）值（6，'6'）;
插入NumberOfGuests（ ID，TotalNumber）值（7，'7'）;
插入NumberOfGuests（ID，TotalNumber）值（8，'8'）;
插入NumberOfGuests（ ID，TotalNumber）值（9，'9'）;
插入NumberOfGuests（ID，TotalNumber）值（10，'10'）;
插入NumberOfGuests（ ID，Tot alNumber）值（11，'超过10'）;
我在VB中连接字符串连接时遇到问题在VB中的这个数据库，所以我可以创建按钮，从oracle获得结果..任何想法。我在DB中创建了这个连接字符串，试图连接到oracle但它不能工作
Imports System.Data
Imports System.Data .Odbc
Public Class Form1
Private Sub btnGetData_Click（sender As System.Object，e As System .EventArgs）处理btnGetData.Click
Dim dt As New DataTable（myTable）
Dim conn As New OdbcConnection
conn.ConnectionString =Dsn = ORCL ODBC; uid = com390; pwd = com390;
conn.Open （）
Dim cmd As New OdbcCommand（tbQuery.Text，conn）
cmd.CommandType = CommandType.Text
Dim da As New OdbcDataAdapter（cmd）
da.Fill（dt）
dgvResults .DataSource = dt
lblProductName.Text = dt.Rows（0）（ProductName）。ToString（）
conn.Close（）
conn.Dispose（）
结束子
结束班
我需要帮助....
< blockquote> 1st Solution ::::::::::::
'如何从Visual Basic连接Oracle数据库
'示例代码和连接字符串到使用Visual Basic连接Oracle：
Dim conn As ADODB.Connection
'使用Oracle ODBC打开Conn_Dataection。
Set Conn_Data = New ADODB.Connection
Conn_Data.ConnectionString =Driver = {Microsoft ODBC for Oracle}; &安培; UID = user_name; PWD = user_passsword
Conn_Data.Open
'打开表格，如下所示：
Dim rs_Data As ADODB.Recordset
'打开桌子。
设置rs_Data =新ADODB.Recordset
rs_Data.OpenTableName，Conn_Data，adOpenDynamic，adLockOptimistic，adCmdTable
'根据数据库输入用户名密码和表名。
'它必须是有效的。
'从表中读取数据并在ListBox中显示值
'列出数据。
Do while not rs_Data.EOF
txt =
For each fld in rs_Data.Fields
txt = txt&修剪
（fld.Value）& ，
下一个fld
如果Len（txt）> 0然后txt =左
（txt，Len（txt） - 2）
List1.AddItem txt
rs_Data.MoveNext
循环
'最后关闭记录集并关闭Conn_Dataection：
rs_Data.Close
Conn_Data.Close
IInd解决方案::::::::: ---------------------- -------------------
昏暗 conv As ADODB.Connection
Dim rsv As ADODB.Recordset
Dim cmdv As ADODB.Command
私有 Sub Form_Load（）
设置 conv = 新 ADODB.Connection
设置 rsv = 新 ADODB.Recordset
设置 cmdv = 新 ADODB.Command
conv.Open Provider = MSDASQL.1; Password = tiger; Persist Security Info = True; User ID = scott; Data Source = voter; Initial Catalog =选民
结束 Sub
并且还要检查：
1：{ http://niteshpatare.blogspot.com/2010/10/oracle-and-vb-60-connectivity-part-1.html [<一个href =http://niteshpatare.blogspot.com/2010/10/oracle-and-vb-60-connectivity-part-1.html\"target =_ blanktitle =New Window> ^ ]}
Hello. I have the following simple database:
CREATE TABLE MiamiIslandResorts (
ID number(2),
ResortName varchar2(30),
ResortRating varchar2(15),
Primary Key(ID));
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (1, 'Palm Springs Resorts', '5 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (2, 'Beaches Resorts', '3 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (3, 'Sands Resorts', '5 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (4, 'Islands Resorts', '4 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (5, 'Diamond Resorts', '5 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (6, 'Tropical Springs Resorts', '4 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (7, 'Island Paridise Resorts', '3 stars');
insert into MiamiIslandResorts (id, ResortName, ResortRating) values (8, 'Paridise Resorts', '5 stars');
Create Table RentalCarAgencies(
ID number(2),
Agency varchar2(25),
AgencyRating varchar2(15),
Primary Key(ID));
insert into RentalCarAgencies (ID, Agency, AgencyRating) values (1, 'Avis', '4 stars');
insert into RentalCarAgencies (ID, Agency, AgencyRating) values (2, 'Enterprise', '4 stars');
insert into RentalCarAgencies (ID, Agency, AgencyRating) values (3, 'Budget', '4 stars');
insert into RentalCarAgencies (ID, Agency, AgencyRating) values (4, 'Dollar', '2 stars');
insert into RentalCarAgencies (ID, Agency, AgencyRating) values (5, 'Hertz', '5 stars');
Create Table RentalCarTypes(
ID number(2),
CarType varchar2(20),
Primary Key(ID));
insert into RentalCarTypes (ID, CarType) values (1, 'Economy');
insert into RentalCarTypes (ID, CarType) values (2, 'Compact');
insert into RentalCarTypes (ID, CarType) values (3, 'Midsize Sedan');
insert into RentalCarTypes (ID, CarType) values (4, 'Large Sedan');
insert into RentalCarTypes (ID, CarType) values (5, 'SUV');
insert into RentalCarTypes (ID, CarType) values (6, 'Pickup Truck');
insert into RentalCarTypes (ID, CarType) values (7, 'Mini Van');
insert into RentalCarTypes (ID, CarType) values (8, '12 Passanger van');
insert into RentalCarTypes (ID, CarType) values (9, 'Economy');
Create Table Month(
ID number(2),
Month varchar2(25),
Primary Key (ID));
insert into Month (ID, MONTH) values (1, 'January');
insert into Month (ID, MONTH) values (2, 'February');
insert into Month (ID, MONTH) values (3, 'March');
insert into Month (ID, MONTH) values (4, 'April');
insert into Month (ID, MONTH) values (5, 'May');
insert into Month (ID, MONTH) values (6, 'June');
insert into Month (ID, MONTH) values (7, 'July');
insert into Month (ID, MONTH) values (8, 'August');
insert into Month (ID, MONTH) values (9, 'September');
insert into Month (ID, MONTH) values (10, 'October');
insert into Month (ID, MONTH) values (11, 'November');
insert into Month (ID, MONTH) values (12, 'December');
CREATE TABLE TypeOfView (
ID number(2),
ViewType varchar2(20),
Primary Key(ID));
insert into TypeofView (ID, ViewType) values (1, 'Ocean View');
insert into TypeofView (ID, ViewType) values (2, 'Interior View');
insert into TypeofView (ID, ViewType) values (3, 'Balcony View');
insert into TypeofView (ID, ViewType) values (4, 'Penthouse View');
CREATE TABLE ReasonForStay (
ID number(2),
StayType varchar2(25),
Primary Key (ID));
insert into ReasonForStay (ID, StayType) values (1, 'Business');
insert into ReasonForStay (ID, StayType) values (2, 'Personal');
insert into ReasonForStay (ID, StayType) values (3, 'Vacation');
insert into ReasonForStay (ID, StayType) values (4, 'Wedding');
insert into ReasonForStay (ID, StayType) values (5, 'Anniversary');
insert into ReasonForStay (ID, StayType) values (6, 'Reunion');
CREATE TABLE NumberOfGuests (
Id number(2),
TotalNumber varchar2(20),
Primary Key(ID));
insert into NumberOfGuests (ID, TotalNumber) values (1, '1');
insert into NumberOfGuests (ID, TotalNumber) values (2, '2');
insert into NumberOfGuests (ID, TotalNumber) values (3, '3');
insert into NumberOfGuests (ID, TotalNumber) values (4, '4');
insert into NumberOfGuests (ID, TotalNumber) values (5, '5');
insert into NumberOfGuests (ID, TotalNumber) values (6, '6');
insert into NumberOfGuests (ID, TotalNumber) values (7, '7');
insert into NumberOfGuests (ID, TotalNumber) values (8, '8');
insert into NumberOfGuests (ID, TotalNumber) values (9, '9');
insert into NumberOfGuests (ID, TotalNumber) values (10, '10');
insert into NumberOfGuests (ID, TotalNumber) values (11, 'More than 10');
I am having an issue writing a connecting string in VB to connect to this database in VB so i can create buttons and get results from this from oracle.. Any ideas. I have created this connection string in DB to try and connect to oracle but its not working
Imports System.Data
Imports System.Data.Odbc
Public Class Form1
Private Sub btnGetData_Click(sender As System.Object, e As System.EventArgs) Handles btnGetData.Click
Dim dt As New DataTable("myTable")
Dim conn As New OdbcConnection
conn.ConnectionString = "Dsn=ORCL ODBC;uid=com390;pwd=com390;"
conn.Open()
Dim cmd As New OdbcCommand(tbQuery.Text, conn)
cmd.CommandType = CommandType.Text
Dim da As New OdbcDataAdapter(cmd)
da.Fill(dt)
dgvResults.DataSource = dt
lblProductName.Text = dt.Rows(0)("ProductName").ToString()
conn.Close()
conn.Dispose()
End Sub
End Class
I need help....
1st Solution::::::::::::
'How to connect Oracle Database from Visual Basic 'Sample code and connection strings to connect Oracle using Visual Basic: Dim conn As ADODB.Connection ' Open a Conn_Dataection using Oracle ODBC. Set Conn_Data = New ADODB.Connection Conn_Data.ConnectionString = "Driver={Microsoft ODBC for Oracle};" & "UID=user_name;PWD=user_passsword" Conn_Data.Open 'Open the table as in: Dim rs_Data As ADODB.Recordset ' Open the table. Set rs_Data = New ADODB.Recordset rs_Data.Open "TableName", Conn_Data, adOpenDynamic, adLockOptimistic, adCmdTable 'Enter the user name password and table name as per the database. 'it must be valid one. 'To reads the data from the table and displays the values in a ListBox ' List the data. Do While Not rs_Data.EOF txt = "" For Each fld In rs_Data.Fields txt = txt & Trim
(fld.Value) & ", " Next fld If Len(txt) > 0 Then txt = Left
(txt, Len(txt) - 2) List1.AddItem txt rs_Data.MoveNext Loop 'Finally close the recordset and close the Conn_Dataection: rs_Data.Close Conn_Data.Close
IInd Solution:::::::::-----------------------------------------
Dim conv As ADODB.Connection Dim rsv As ADODB.Recordset Dim cmdv As ADODB.Command Private Sub Form_Load() Set conv = New ADODB.Connection Set rsv = New ADODB.Recordset Set cmdv = New ADODB.Command conv.Open "Provider=MSDASQL.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=voter;Initial Catalog=voter" End Sub
and also check:
1:{ http://niteshpatare.blogspot.com/2010/10/oracle-and-vb-60-connectivity-part-1.html[^]}
这篇关于将VB连接到我的oracle DB的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
