SQL & VB
5 отговора
220 прегледа
SQL & VB
Здравейте хора, спешно нужда от помощ много съм го закъсала:))
случая е следния:
имам таблица в sql - Table1, с полета 1,2,3,4,5 (поле 1 има съдържание другите са празни) Правя заявка в VB-to като трябва да си създам recordset, по поле 1 което както казах не е празно търся в един друг fail съответствие и ако такова има от file взимам данни които попълвам в полетата 2,3,4,5 в SQL.
Надявам се да съм обяснила като хората:)
Значи заявките ги направих обаче нещо не мога да вържа заявка файл заявка. Оплетох циклите:((((
Ако някой може да помогне ще черпя:)
случая е следния:
имам таблица в sql - Table1, с полета 1,2,3,4,5 (поле 1 има съдържание другите са празни) Правя заявка в VB-to като трябва да си създам recordset, по поле 1 което както казах не е празно търся в един друг fail съответствие и ако такова има от file взимам данни които попълвам в полетата 2,3,4,5 в SQL.
Надявам се да съм обяснила като хората:)
Значи заявките ги направих обаче нещо не мога да вържа заявка файл заявка. Оплетох циклите:((((
Ако някой може да помогне ще черпя:)
Re: SQL & VB
Mai e pylna kasha:))
Function SQL_connect()
Dim i
Set dbs = Nothing
Set dbs = New ADODB.Connection
dbs.CursorLocation = adUseServer
dbs.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source= "IP";User ID=sa;Initial Catalog=bway;"
dbs.ConnectionTimeout = 300
dbs.Open
Set adors = New ADODB.Recordset
adors.CursorLocation = adUseClient
Str = "SELECT 1, 2, 3, 4, 5 From Table1 " & _
"WHERE (2 IS NULL) AND (NOT (1 LIKE '9%'))"
adors.Open Str, dbs, adOpenDynamic, adLockOptimistic, adCmdText
1 = adors!1
2 = adors!2
3 = adors!3
4 = adors!4
5 = adors!5
tuka triabva da ima niakakyv cikyl:)))
i gettext ot file
za tezi neshta koito vzimam ot file
Str = "update Table1 set Table1.2 = 'Rslt??'" & _
"Table1.4 = 'Rslt??'" & _
"Table1l.5 = 'Rslt??'" & _
"Table1.3 = left 4 ot Table1.4" & _
"from nom_gl RIGHT JOIN" & _
"Where Table1.1 = Rslt ??"
End Function
Function SQL_connect()
Dim i
Set dbs = Nothing
Set dbs = New ADODB.Connection
dbs.CursorLocation = adUseServer
dbs.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source= "IP";User ID=sa;Initial Catalog=bway;"
dbs.ConnectionTimeout = 300
dbs.Open
Set adors = New ADODB.Recordset
adors.CursorLocation = adUseClient
Str = "SELECT 1, 2, 3, 4, 5 From Table1 " & _
"WHERE (2 IS NULL) AND (NOT (1 LIKE '9%'))"
adors.Open Str, dbs, adOpenDynamic, adLockOptimistic, adCmdText
1 = adors!1
2 = adors!2
3 = adors!3
4 = adors!4
5 = adors!5
tuka triabva da ima niakakyv cikyl:)))
i gettext ot file
za tezi neshta koito vzimam ot file
Str = "update Table1 set Table1.2 = 'Rslt??'" & _
"Table1.4 = 'Rslt??'" & _
"Table1l.5 = 'Rslt??'" & _
"Table1.3 = left 4 ot Table1.4" & _
"from nom_gl RIGHT JOIN" & _
"Where Table1.1 = Rslt ??"
End Function
Re: SQL & VB
Там където трябва да има нещо дето го няма:)) няма как да го напиша... За да помогна ми трябва читава база и читав файл. Айде базата мога да я скалъпя ама структурата на файла няма как да я съчиня и да напиша толкова общ код , че да ти свърши работа. Зачата е лесна ама трябва да има дадено и после търси се:)) Като даденото да включва и дадено а не само описание на даденото.
Re: SQL & VB
ДА прав си ше се пробвам да го обясня просто щото и аз много не го разбирам:))
Смисъла е следния
от базата имам таблица с 300 реда първата ми колона съдържа цифри останалите са празни, трупам всичкото това в един рекордсет
след което въпросния файл не файл а е програма към коато се конектвам и чета от екран. Значи първия ми запис от таблицата го сетвам на екрана и след това ми излизат едни 3 реда 1.техт, 2 и 3 цифри взимам съдържанието на тези редове и го слагам в таблицата в съответните колони това горе долу е смисъла от там нататък кода е пълна боза това канектването и set i get text ми е иасно обаче другото....
Нинам това е което мога да кажа надявам се да можеш д ами помогнеш :(
Смисъла е следния
от базата имам таблица с 300 реда първата ми колона съдържа цифри останалите са празни, трупам всичкото това в един рекордсет
след което въпросния файл не файл а е програма към коато се конектвам и чета от екран. Значи първия ми запис от таблицата го сетвам на екрана и след това ми излизат едни 3 реда 1.техт, 2 и 3 цифри взимам съдържанието на тези редове и го слагам в таблицата в съответните колони това горе долу е смисъла от там нататък кода е пълна боза това канектването и set i get text ми е иасно обаче другото....
Нинам това е което мога да кажа надявам се да можеш д ами помогнеш :(
Re: SQL & VB
Мога да допусна , че имаш задание. И мога да допусна , че от него ще разбера много повече
...