Click here to Skip to main content
15,897,891 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionMAPIMessages1.Fetch from a different folder Pin
EvScott7-Jul-07 7:20
EvScott7-Jul-07 7:20 
Questiondatagridview Row provided already belongs to a DataGridView control Pin
balakpn6-Jul-07 23:07
balakpn6-Jul-07 23:07 
Questiondeveloping mutiuser Application(urgent) Pin
prasadbuddhika6-Jul-07 23:01
prasadbuddhika6-Jul-07 23:01 
AnswerRe: developing mutiuser Application(urgent) Pin
Ajai Chaudhary6-Jul-07 23:17
Ajai Chaudhary6-Jul-07 23:17 
Questionprotection with CD Key Pin
Ajai Chaudhary6-Jul-07 21:10
Ajai Chaudhary6-Jul-07 21:10 
AnswerRe: protection with CD Key Pin
Paul Conrad13-Jul-07 12:32
professionalPaul Conrad13-Jul-07 12:32 
Questionhow can i import data from excel to sqlserver using vb6.0 Pin
koolprasad20036-Jul-07 21:01
professionalkoolprasad20036-Jul-07 21:01 
AnswerRe: how can i import data from excel to sqlserver using vb6.0 Pin
ips_sun6-Jul-07 21:23
ips_sun6-Jul-07 21:23 
hi,
These is the routine I am using. It works fine..
I move the each cells to an specific field (str... = string or int... =
integer) and I use the fields to update the data base.
I hope it helps you

===================================================================================
Option Explicit

Dim xl As New Excel.Application
Dim xlw As Excel.Workbook


Private Sub Excel name_KeyPress(KeyAscii As Integer) ' the combo-box
has
the Excel name
If KeyAscii = 13 Then

Set xlw = xl.Workbooks.Open("C:\List\Excel\" _
& Excel name)
xlw.Sheets("Plan1").Select
' start in the second row because the first one it is the head
x = 2 '(Row)

Do While xlw.Application.Cells(x, 1).Value <> ""
strTratamento = xlw.Application.Cells(x, 1).Value
strNomeConvidado = xlw.Application.Cells(x, 2).Value
intQtde = xlw.Application.Cells(x,3).Value

strName01 = xlw.Application.Cells(x, 4).Value
strName02 = xlw.Application.Cells(x, 5).Value
strName03 = xlw.Application.Cells(x, 6).Value
strName04 = xlw.Application.Cells(x, 7).Value
strName05 = xlw.Application.Cells(x, 8).Value
strName06 = xlw.Application.Cells(x, 9).Value
strName07 = xlw.Application.Cells(x, 10).Value
strName08 = xlw.Application.Cells(x, 11).Value
intDDD01 = xlw.Application.Cells(x, 12).Value
strTelefone01 = xlw.Application.Cells(x, 13).Value
intDDD02 = xlw.Application.Cells(x, 14).Value
strTelefone02 = xlw.Application.Cells(x, 15).Value
intDDD03 = xlw.Application.Cells(x, 16).Value
strTelefone03 = xlw.Application.Cells(x, 17).Value
strOrign = xlw.Application.Cells(x, 18).Value
strObservers = xlw.Application.Cells(x, 19).Value

' Include here the routine to update the SQL Server data base

x = x + 1

Loop
xlw.Close False
Set xlw = Nothing
Set xl = Nothing
subLiberaForm
Screen.MousePointer = vbDefault

End If
End If
End Sub



Regards
IPS
Questionneed code to find serial number of hard, mainboard and cpu please Pin
omidreza8126-Jul-07 20:13
omidreza8126-Jul-07 20:13 
QuestionTo develop Windows applications to support an number of languages. Pin
Hari Prasad Karnam6-Jul-07 20:13
Hari Prasad Karnam6-Jul-07 20:13 
AnswerRe: To develop Windows applications to support an number of languages. Pin
Tom Deketelaere8-Jul-07 21:26
professionalTom Deketelaere8-Jul-07 21:26 
Questioncrystal report Pin
d_smit6-Jul-07 19:41
d_smit6-Jul-07 19:41 
QuestionVB.Net Sockets [modified] Pin
calebcohoon6-Jul-07 13:03
calebcohoon6-Jul-07 13:03 
AnswerRe: VB.Net Sockets Pin
MidwestLimey9-Jul-07 9:24
professionalMidwestLimey9-Jul-07 9:24 
Questionsequential files Pin
Cedrickdeorange6-Jul-07 8:08
Cedrickdeorange6-Jul-07 8:08 
AnswerRe: sequential files [modified] Pin
Guffa6-Jul-07 10:21
Guffa6-Jul-07 10:21 
AnswerRe: sequential files Pin
Luc Pattyn7-Jul-07 2:28
sitebuilderLuc Pattyn7-Jul-07 2:28 
Questionnull value conversion problem Pin
ken_thompson6-Jul-07 6:37
ken_thompson6-Jul-07 6:37 
AnswerRe: null value conversion problem Pin
Paul Conrad13-Jul-07 13:19
professionalPaul Conrad13-Jul-07 13:19 
QuestionDetermine if Windows is shutting down Pin
Werries6-Jul-07 6:10
Werries6-Jul-07 6:10 
AnswerRe: Determine if Windows is shutting down Pin
The ANZAC6-Jul-07 15:30
The ANZAC6-Jul-07 15:30 
AnswerRe: Determine if Windows is shutting down Pin
Luc Pattyn6-Jul-07 16:46
sitebuilderLuc Pattyn6-Jul-07 16:46 
AnswerRe: Determine if Windows is shutting down Pin
saeed_rezaei7-Jul-07 10:16
saeed_rezaei7-Jul-07 10:16 
QuestionHow to display rich text contents from a database field into crystal report 8.5 Pin
Salman Sheikh6-Jul-07 5:38
Salman Sheikh6-Jul-07 5:38 
QuestionInformix and VB.NET Pin
penguin50006-Jul-07 5:24
penguin50006-Jul-07 5:24 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.