请教:vb中如何将文本内容分段存入acssess数据库

acssess数据库怎样导入？~

串口接收地BYTE数据转为16进制，注意0-9前需补0，变为00-09。统一组成2字节组成的16进制字符串，便于以后的数据处理。
Private Sub Form_Load()
MSComm2.CommPort = 2
MSComm2.InBufferSize = 1024
MSComm2.OutBufferSize = 512
MSComm2.Settings = "9600,n,8,1"
MSComm2.RThreshold = 1
MSComm2.InputMode = comInputModeBinary '二进制接收
MSComm2.PortOpen = True
Text1 = ""
End Sub

Private Sub MsComm2_OnComm()
Dim intInputLen As Integer
Select Case Me.MSComm2.CommEvent
Case comEvReceive
'处理接收的代码
intInputLen = Me.MSComm1.InBufferCount
ReDim bytInput(intInputLen)
bytInput = Me.MSComm2.Input
jieshou
End If
End Select
End Sub

Public Function jieshou() '接收数据处理为16进制
Dim i As Integer
For i = 0 To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i))
Else
strData = strData & Hex(bytInput(i))
End If
Next
Text1 = strData
End Function
分段存入acssess数据库需依据通信协议按要求取数据。

1、在Access或SQL Server中建好表；
2、在开始->运行中输入 odbcad32 打开建立odbc数据源，例如建立SQLserver的数据源，数据源名为:tmpDS，SQLServer的用户口令均为sa，链接的数据库名为tmpDB;
3、编写ASP代码
（1）联系数据库，可建立一个专门的数据库连接文件，如：commsql.inc
文件内容如下：
<% datanet = "DSN=tmpDS;uid=sa;pwd=sa;database=tmpDB"
set conn=server.createobject("adodb.connection")
Conn.Open datanet

Set rs=server.createobject("Adodb.recordset")
%>

(2)编写一般语句
如login.asp


<%

dim usa
dim psw

pwd=request("password")
usa=request("username")

'查询用户密码是否正确
sql="select * from UserInfo where UserName='"&usa&"'"
rs.open sql,Conn,1,1
if rs.eof then
rs.close
conn.close
response.write " alert('用户名不存在!');history.back(-1); "
response.end
elseif trim(rs("UserPsd")) pwd then
rs.close
conn.close
response.write " alert('密码错误!'); history.back(-1);"
response.end
end if

'记录登录时间
SQL = "Update UserInfo set LastVisitTime='"&now()&"'" where UserName ='"&usa&"'"
rs.open sql,Conn,1,3
'关闭连接
conn.close
%>

串口接收地BYTE数据转为16进制，注意0-9前需补0，变为00-09。统一组成2字节组成的16进制字符串，便于以后的数据处理。
Private Sub Form_Load()
MSComm2.CommPort = 2
MSComm2.InBufferSize = 1024
MSComm2.OutBufferSize = 512
MSComm2.Settings = "9600,n,8,1"
MSComm2.RThreshold = 1
MSComm2.InputMode = comInputModeBinary '二进制接收
MSComm2.PortOpen = True
Text1 = ""
End Sub

Private Sub MsComm2_OnComm()
Dim intInputLen As Integer
Select Case Me.MSComm2.CommEvent
Case comEvReceive
'处理接收的代码
intInputLen = Me.MSComm1.InBufferCount
ReDim bytInput(intInputLen)
bytInput = Me.MSComm2.Input
jieshou
End If
End Select
End Sub

Public Function jieshou() '接收数据处理为16进制
Dim i As Integer
For i = 0 To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i))
Else
strData = strData & Hex(bytInput(i))
End If
Next
Text1 = strData
End Function
分段存入acssess数据库需依据通信协议按要求取数据。

---

澄海区17234514107： vb 分行保存文本 - ？
赖差三鞭： 在按键一写入代码:Private Sub Command1_Click() text5.text=text1.text & vbCrLf & text2.text & vbCrLf & text3.text & vbCrLf & text4.text & vbCrLf End Sub 在按键二写入代码:Private Sub Command2_Click() text1.text=text5.text text2.text=text5.text text3.text=text5.text text4.text=text5.text End Sub

澄海区17234514107： VB编程如何将TextBox里的内容拆分并写入指定的其它TextBox中?？
赖差三鞭： Private Const EM_GETLINE = &amp;HC4Private Const EM_LINELENGTH = &amp;HC1Private Const EM_LINEINDEX = &amp;HBBPrivate Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hWnd As Long, ByVal...

澄海区17234514107： VB TXT 文本文件分段 - ？
赖差三鞭： 将文本读取保存到变量,然后用replace替换掉空格和回车 然后用split或for 语句进行分割,然后保存即可!

澄海区17234514107： 如何在VB程序中的文本框内输入一段文字,请大家帮忙看看,谢谢 - ？
赖差三鞭： text1 的multiline设置成ture scprollbars 加上滚动条

澄海区17234514107： vb 如何从一个文本中将符合要求的某几项内容提出存入另一个文本中 - ？
赖差三鞭： Dim x(10000) As String Private Sub Command1_Click() Open ＂D:\1.txt＂ For Input As #1 For i = 0 To 9999 If Not EOF(1) Then Input #1, x(i) Else Exit For End If Next Close #1 Open ＂D:\2.txt＂ For Output As #1 For i = 0 To 9999 If InStr(x(i), ＂N＂)0 Then Print #1, x(i) Next Close #1 MsgBox ＂提出OK!＂ End Sub 搞定了!!!

澄海区17234514107： vb中如何将一个多位数分段??? - ？
赖差三鞭： 先把这个多位数改为字符串,再用字符串截取函数每二个数分段.再调用ASC函数输出值

澄海区17234514107： VB如何分割文本 - ？
赖差三鞭： Private Sub Command1_Click()Dim Text As StringText = Text1.Text'Text = ＂11 22 33 44 dd 345 3 56 ＂Dim regEx As ObjectSet regEx = CreateObject(＂VBScript.RegExp＂)regEx.Global = TrueregEx.Pattern = ＂[^\s]+＂Dim Matches As...

澄海区17234514107： VB如何把TEXT1 - TEXT8的内容分行保存到TXT文件中？
赖差三鞭： Private Sub Command1_Click()Dim s As StringRandomize TimerFor i = 1 To 8 s = s &amp; Me(＂text＂ &amp; i) &amp; vbCrLfNexts = s &amp; ＂WScript.Sleep ＂ &amp; (1 + Int(Rnd * 10001))Open ＂c:\test.txt＂ For Output As #1Print #1, sClose...

澄海区17234514107： VB如何一字符串分行存到文本 - ？
赖差三鞭： 如果你确系是要在汉字与其后的字母间换行,我的代码没问题 Private Sub Command1_Click() fn = FreeFile Open ＂c:\test.txt＂ For Output As #fn Print #fn, splt(＂abbba楞地要ssss工工地ffff工工工aaa缝缝补补＂) Close #fn End Sub Public ...

澄海区17234514107： vb中如何将多行分段的字符串导入数据库中 - ？
赖差三鞭： 多行分段的字符串,不就是中间有回车换行符吗?把回车换行符用vbCrLf 或者Chr(13) + Chr(10)代替加在每行中间就行了.